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L'immediato e vasto successo di List, evidenziato dalle co¬ 
pie vendute in edicola, dagli abbonamenti sottoscritti, dalle lette¬ 
re e dalle telefonate di consenso che giungono quotidianamen¬ 
te in redazione, testimonia la bontà dell’iniziativa editoriale sia sul 
piano promozionale sia su quello didattico-divulgativo. 

Infatti, pur ispirandosi a rigorosi criteri scientifici nella impo¬ 
stazione della pubblicazione, i redattori di List si sono preoccu¬ 
pati, innanzitutto, di dar vita ad una rivista di facile lettura e di 
immediata comprensione da parte di una vasta fascia di lettori 
che abbraccia lo studente, la casalinga, l’operatore economico, 
il professionista e che per la prima volta entra in contatto con l’af¬ 
fascinante ed ancora misterioso mondo dei computers. 

Questa impostazione che risponde ad una precisa scelta cul¬ 
turale, distingue List da altre pubblicazioni sull’argomento che 
hanno il difetto di usare un linguaggio per iniziati e spesso incom¬ 
prensibili anche alla ristretta cerchia degli addetti ai lavori. 

List si propone, invece, di fare della didattica che, contro ogni 
pretesa elitaria, consenta con l’ausilio delle lezioni introduttive e 
dei programmi già predisposti, una rapida ed ottimale utilizza¬ 
zione da parte dell'utente delle svariate funzioni dell"'home 
computer". 

Tale obiettivo, però, non risponde soltanto ad esigenze di 
carattere commerciale, ma anche alla necessità sul piano cultu¬ 
rale di entrare in dimestichezza con un strumento che, volenti o 
nolenti, è destinato, d’ora in poi, ad assumere un ruolo sempre 
più importante nella vita di ciascuno. 

Come a tutti è noto, per conoscenza diretta o per sentito di¬ 
re, il calcolatore elettronico apre all’uomo nuove vie, in precedenza 
irraggiungibili, sia sul piano delle informazioni che su quello del¬ 
le idee. 

Le implicazioni di carattere sociologico e di carattere politi¬ 
co che comporta l’uso delle sconfinate potenzialità del compu¬ 
ter, con la conseguente necessità sia sul piano individuale che 
collettivo di acquisire le tecniche del linguaggio di uno dei sim¬ 
boli dell'era tecnotronica, non dovrebbero sfuggire a nessuno. 

Il fatto poi che, come diceva una quindicina di anni fa Nigel 
Calder, attento studioso del mondo dei computers, "gli storici del 
futuro potranno rendersi conto che l’invenzione dei calcolatori è 
paragonabile per importanza soltanto all'invenzione della scrit¬ 
tura", costituisce un motivo in più che spinge List a dare il suo 
modesto ma convinto contributo alla nuova alfabetizzazione del¬ 
l’uomo del duemila. 


Giovanni Maria Pollicelli 
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La rubrica del «FAI DA TE» di questo numero è de¬ 
dicata ai possessori del VIC 20 i quali desiderano 
utilizzarlo come me non solo come video-gioco o 
per programmare i soliti bilanci familiari, ma an¬ 
che per qualche applicazione di carattere pratico 
come, per esempio, quella che mi accingo a de¬ 
scrivere. 

Qualche tempo fa decisi di proteggere il mio box 
da eventuali sgraditi visitatori! 

Alla bisogna, dovevo acquistare una centralina 
d'allarme, dei contatti, una sirena ed il gioco era 
fatto! 

Ma, mentre mi accingevo alla inevitabile spesa, 
ecco l’idea geniale! Perchè non servirmi del mio 
VIC 20? Detto e fatto, carta e penna, trasferibili, 
saldatore ed il mio riposo notturno era assicurato. 
Il prototipo che vi propongo funziona egregiamen¬ 
te anche se presenta un inconveniente di cui biso¬ 
gna tener conto: poiché il VIC è collegato alla ten¬ 
sione di rete, se quest’ultima viene a mancare, 
naturalmente ... il marchingegno non funziona. 

Al di là di questo inconveniente, tuttavia lo sche¬ 
ma conserva la sua validità, pertanto con un pizzi¬ 
co di fantasia e con un po’ di fortuna, sono certo 
che troverete il modo di farne buon uso! 



SCHEMA ELETTRICO 


Come possiamo vedere dallo schema elettrico il 
tutto è stato studiato in maniera tale da non provo¬ 
care danni causati da errate manovre al nostro 
VIC. L’ingresso è separato da un accoppiatore ot¬ 
tico e l’uscita tramite un buffer va a pilotare la bo¬ 
bina di un relay. 

Altro accorgimento usato è che il VIC alimenta 
esclusivamente il circuito integrato 7406, la bobi¬ 
na del primo relay ed un diodo led. 
L'alimentazione al dispositivo viene fornita da un 
altro alimentatore esterno le cui caratteristiche 
sono di 12 Volt 2 Ampère minimo per la corrente 
dato che già una sirena di tipo elettronico assorbe 
circa 1 Ampère. 

Quindi, per quanto riguarda l’isolamento, il VIC ri¬ 
sulta separato dall’utilizzatore. 

È preferibile utilizzare dei contatti normalmente 
chiusi perchè così facendo si controlla anche 
un’eventuale taglio dei fili che sarebbe interpreta¬ 
to dal computer come un’apertura dei contatti 
con conseguente allarme. 

All’accensione del sistema possiamo notare co¬ 
me in una condizione di non allarme il diodo led è 
illuminato con un conseguente 0 logico riportato 
su PBO. Infatti il controllo del programma viene 
fatto su A = 0 posizione normale. 
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CONDIZIONE DI ALLARME 

Aprendo il contatto varierà la condizione su PBO 
quindi A sarà diverso da 0: in questo caso il VIC 
porterà ad 1 la linea PB7 che diventerà 0 sul piedi¬ 
no 2 dell’integrato, alimentando, così, la bobina 
del primo relay che a sua volta darà alimentazio¬ 
ne alla bobina del secondo relay che azionerà la 
sirena o un dispositivo. 

La funzione dell’interruttore S risulta a questo 


punto indispensabile, perchè esso andrà chiuso 
dopo aver inserito il prototipo nella USER—PORT 
a VIC spento, aver caricato in memoria il pro¬ 
gramma ed, infine, dato il RUN. 

Se non si esegue questa corretta sequenza, non 
si darà modo al VIC di inizializzare l’l/0 e, pertan¬ 
to, si corre il rischio di dare alimentazione al di¬ 
spositivo prima ancora che il VIC abbia assunto il 
controllo delle operazioni. 


NOTE COSTRUTTIVE 

La costruzione del prototipo non presenta molte 
difficoltà. 

Dopo aver costruito il circuito stampato doppia 
faccia, occorre far attenzione a dei ponticelli da 
effettuare tra un lato dello stampato e l’altro e, 
precisamente, sfruttando direttamente i piedini 


dei componenti, fare delle saldature passanti, tra 
la faccia superiore ed inferiore dello stampato del 
pin 4 di FI, del pin 7 e 14 di IC1 e su R2 come evi¬ 
denziato, fra l’altro, nella figura dove viene ripor¬ 
tato il quadro dei componenti, • 

L’unico ponticello (vedi figura) va fatto a lato del 
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punto N. 6 della morsettiera. 

Una particolare attenzione dovrà essere dedicata 
all’interruttore S i cui tre piedini sarano utilizzati 
nel seguente modo: il primo verrà eliminato, il se¬ 
condo verrà saldato sulla faccia superiore e l’ulti¬ 
mo, inserito nell’apposito foro, verrà poi saldato 
sulla faccia inferiore del circuito stampato. 
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ELENCO COMPONENTI 


F 1 

. accoppiatore ottico tipo TIL 
111 

IC 1 

- cir cu it o in t eg r at o 7 4 0 6 

R eli 

- relay (vedi figura) 

R e 1 2 

- r elay 12 V 5 A mpèr e 

R 1 - R 2 

- 560 Ohm 

D 1 - D 2 

- diodiled 

C 

• morsettiera da stampato 6 
con t at ti 
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- interruttore 


Connettore a 24 pin passo 4mm 
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SPIEGAZIONE DEL PROGRAMMA 

La linea 10 inizializza l’input/output ed esattamen¬ 
te predispone PB0 come un ingresso e PB7 come 
uscita. 

La linea 20 è un reset per l’l/0. 

La linea 30 va ad una Subroutine che serve per vi¬ 
sualizzare che l’allarme è inserito. 

La linea 35 invece opera un controllo continuo sul 
contatto di apertura che nel nostro caso è normal¬ 
mente chiuso; ossia se A = 0 va alla linea 20 altri¬ 
menti passa alla linea 40; se A £ 0 porta alta la li¬ 
nea PB7 che di conseguenza fa eccitare i due re- 
lay e quindi da alimentazione al dispositivo di al¬ 
larme. La linea 50, infatti, va ad una Subroutine 
che, sfruttando l’orologio interno del VIC, ci predi¬ 
spone alla linea 1095 il tempo di allarme variabile 
a piacere (nel nostro caso TI $ = ”00001 ” è fis¬ 
sato ad un secondo). 

Terminato il tempo di allarme, si ritorna alla linea • 
20 per controllare se c’è una qualche variazione 
all’ingresso. 



USER I/O 


123456789 10 11 12 



ABCOEFHJ KLMN 


PIN # 

TYPE 

NOTE 

PIN • 

TYPE 

NOTE 

1 

QNO 


A 

GNO 


2 

*■ 5V 

iNmA MAX. 

6 

CB1 


3 

RESET 


C 

PB9 


4 

JOY® 


0 

PB1 


5 

JOY1 


E 

PB2 


6 

JOY2 


F 

PB3 


7 

LIGHT PEN 


H 

PB4 


8 

CASSETTE SWITCH 


J 

PB5 


9 

SERIAL ATN IN 


K 

PB6 


19 

+ 9V 

iMmA MAX. 

1 L 

PB7 


11 

GND 


M 

CB2 


12 

GND 


N 

GNO 



1 REM*PR0GRAM PILLARNE* 

2 REM COPYRIGHT * LIST* 

10 P0KE37138,128 

20 P0KE37136.- 0 : GOSUB100 
25 PRINT" □" :fl=PEEK<37136> AND1 
30 GOSUB2000 
35 IFA=0THEN20 

40 P0KE 37136,PEEK<37136 > OR128 
50 GOSUB1000 
80 G0T020 

ì 00 PORI = 1T01000 ^ NEXT : RETURN 
1000 TI$="000000" 


1010 

1013 

1014 

1015 
1 020 
1025 
1030 
1035 
1040 
1045 
1050 

1055 

1056 


PRINT"3" 

pr i nt " mmmmmm 





TEMPO IN SECONDI 






Sili 

! 

! 


PR I NT " ! 

PRINT"!• 

FRI NT "! 

PRINT"! 

PRINT"! 

PRINT"! 

PRINT"! 

PRINT"! 

PRINT"! 

PRINT"! 

PRINT"! 

1060 pr i nt " -mmmMmmmmmmmmm 

1065 PRINT"! 

1070 PRINT"! BALLAR M E 
1075 PRINT"! 

1080 pr i nt ''mmmmmmmmmmmmm 

1090 PRINT"TimiTTrTIMMH"TI $ 
IF TI $= " 000001 " THEN1200 
FORI = 1TO500:NEXTI : GOTO 1010 
RETURN 
PRINT" 

PRINT"! 


! 


! 


! 




m 


m 


1095 
1100 
1200 
2000 
2010 
2015 
2020 
2025 
2030 
2035 
2040 
2045 
2050 


! 


PRINT"! 
PRINT"! 
PRINT"! 
PRINT"! 
PRINT"! 
PRINT"! 
PRINT"! 
PRINT"! 
PRINT"! 
PRINT"! 
PRINT"! 
PRINT"! 
PRINT"! 


! 


% 


! 

! 

! 

! 


<# 


! 


! 


! 

! 

! 


sii" 


m 

• • 


ÌÌW55 
2860 
2065 
2070 
2075 

2080 pRi\n"mmmmmmmmmmmmm 

2090 F'R I NT " TTTTTrriTlilALLARNE 
INSERITO" 

2095 PRINT"XHMHRIMANGO IN ATTESA" 
2100 RETURN 

































Nella fitta foresta di SPECTRALYLAND si è assera- 
gliato un gruppo di rivoltosi; è da questa base che 
partono le razzie verso le città vicine. 

L’obiettivo è distruggere i loro magazzini e i depositi 
munizioni. 

Per questa missione l’elicottero dimostra di essere 
il mezzo più agevole. 

Ma dovete essere ugualmente precisi: se non colpi¬ 
te gli obiettivi le vostre bombe cadranno su vie di co¬ 
municazione, vitali anche per voi, per cui sarete pe¬ 
nalizzati. Inutile dirlo: l-’obiettivo più ambito è il Quar- 
tier Generale, che non vi sarà difficile individuare. 



1 LET HS=0: CLS : GO SUB 301: 

GO SUB 1000 

2 LET SC =0: LET SHOT = 15 : LET 

Z =RND/1B0 : LET X=RND*50 

3 INK 4.: BORDER 1: CLS : POR 

N=0 TO 20: BEEP Z,X: PRINT RT N, 
31;: NEXT N 

4. FOR N=0 TO 20: BEEP Z,X: PR 
INT RT N,0; NEXT N: FOR N=0 

TO 31: BEEP Z,X: PRINT RT 20,N;" 

f “ : NEXT N: FOR N=0 TO 31: BEEP 
,X: PRINT RT 0,N;"H” : NEXT N 
5 INK 0: PRINT RT 19,22; INK 



l; FLRSH 1 PRINT RT 19,3 ; "41} 

PRINT RT 19, 4.; “fiff" : PRINT fit 1 
9,7; “4i”: PRINT RT 19,9; "di": PRIN 
T RT 19, 10; : PRINT RT 19,11;“ 

6 PRINT RT 19,13; "H}“ : PRINT R 
T 19, 14-; "W : PRINT RT 19,16;“A": 

PRINT RT 19,19; "A": PRINT RT 19 
,20; “A": PRINT RT 19,24-; "X" 

7 INK 1: PRINT RT 2,2; " C-CjCjCjCjCa 

CaCjC* CaCa C< CaCa" 

8 PRINT RT 3,3; “CO C« C* C 

ró o 

9 FOR N =0 TO 5: INK 2: CIRCLE 
24-0,160, N: NEXT N: INK 0 

10 LET 0=4- : LET B = 1 

20 PRINT RT 21,21; “BOMBE = “; SHO 

T: PRINT RT 21,1:“PUNTI =“;SC: P 
RINT RT’ R , B; “ : BEEP .003,4-0 

21 XF SC=0 THEN PRINT RT 21,8; 

££ • •• Il * * 

22 IF 50=1000 THEN GO TO 6000 

23 IF SC=-50 THEN PRINT RT 21, 

4 « • I» «I 

24» IP SHOT =9 THEN PRINT RT 21. 
28; •• •• 

25 IF SC =50 THEN PRINT RT 21,1 

0 ; ” •• 





















































































30 LET B=B4-1 

4-0 POR Z=0 TO 5: IP B=25 THEN 

LET Bel: LET R=4: PRINT RT 4,25, 

• • •» 

50 IP INKEY$ = **D" OR INKEY$ = ,, d M 
THEN LET 5HOT=5HOT-l: PRINT RT 
R ,B; '• : GO TO 99 

60 GO TO 20 

99 IP SHOT = — 1 THEN PRINT INUER 
SE l; PLRSH l; RT 11, 10; "GRIÌE OUE 
R**: POR N =0 TO 500: NEXT N: GO T 
O 6000 


100 


PRINT RT 

/ R 


R.B; 


• § 


LET R=R4-1 
POR Z=0 T 


THEN PRINT 

2; •*»" : 


THEN PRINT 
2; LET 

THEN PRINT 

2 ; •&"; 


101 PRINT RT R,B ;” 

O 5: NEXT Z 

104. IP R = 19 RND B=22 THEN PRINT 
RT R..B; PLRSH 1; INK 2; "Jfi" : LET 
SC =SC +200 : GO TO 10 

105 IP R = 19 RND B =3 THEN PRINT 
RT R,B; PLRSH l; ink 2; 

SC=SCf50: GO TO 10 

106 IP R = 19 RND B =4 
RT R,B,‘ PLRSH l; INK 
SC=SCfl00: GO TO 10 

107 IP R = 19 RND B = 7 
RT R/B; PLRSH 1; INK 
SC=5Cf50: GO TO 10 

108 IP R = 19 RND B =9 
RT R,B; PLRSH 1; INK 
SC=5C+50: GO TO 10 

109 IP R=19 RND B=10 
RT R/B; PLRSH l; INK 
SC=SC4-50: GO TO 10 

110 IP 0 = 19 RND B = 11 
RT R t B; PLRSH 1; INK 
SC =SC +50: GO TO 10 

111 IF 0 = 19 RND B = 13 
RT R/B; PLRSH 1; INK 
SCsSC+100: GO TO 10 

112 IP 0 = 19 RND B = 14 
RT R , B; PLRSH 1; INK 
5C=SC+100: GO TO 10 

113 IP 0 = 19 RND B =16 
RT R,B; PLRSH 1; 

SC =SC+50: GO TO 
114- IP 0 = 19 RND 
RT R , B ; PLRSH 1; 

SC=SCf50: GO TO 

115 IP 0=19 RND 
RT R,B; PLRSH 1; 

SC=SC+50: GO TO 

116 IP 0=19 RND 
RT R,B; PLRSH l; 

5C=SC+100: GO TO 


THEN POINT 
2; •*»": LET 

THEN PRINT 

2 ; ’ : 


THEN PRINT 
2; -ft-: LET 

THEN PRINT 

2 ; : 


INK 

10 

B = 19 
INK 
10 

B =20 
INK 
10 

B =24- 

INK 

10 


THEN PRINT 

2, "Jft" : 


THEN PRINT 
2; •'&** : LET 

THEN PRINT 

2; : 


THEN PRINT 

2; : 


119 IP P>18 THEN PRINT INK 3 
LOSH 1; RT R,B; BEEP . 1 , . 2 

EEP .1,1: BEEP .2,.l: BEEI 
1: POU5E 10: PRINT RT R ,B 
ET SC=SC-2O0: GO TO IO 


P 

B 


» » 


300 

GO TO 

1«8 

• 

.♦ 

301 

POKE 

USR 

•*R 

302 

POKE 

USR 

“R 

303 

POKE 

USR 

** R 

304- 

POKE 

USR 

** R 

305 

POKE 

USR 

•‘R 

306 

POKE 

USR 

"R 

307 

POKE 

USR 

‘•R 

309 

POKE 

USR 

‘•R 

310 

POKE 

USR 

%% B 

311 

POKE 

USR 

‘•B 

312 

POKE 

USR 

"B 

313 

POKE 

USR 

-B 

314- 

POKE 

USR 

••e 

315 

POKE 

USR 

••B 

316 

POKE 

USR 

**B 

317 

POKE 

USR 

**B 

318 

POKE 

USR 

••e 

319 

POKE 

USR 

••e 

320 

POKE 

USR 

"C 

321 

POKE 

USR 

••e 

322 

POKE 

USR 

••e 


• • 


• • 


4-1 ,BIN 


+ 3.. BIN 
M +4- / BIN 
”+5,BIN 
*• 4-6 / BIN 
"+7,BIN 
M ,BIN 0 
+1,BIN 
+2,BIN 
*#■3 .BIN 
“‘", BIN 
, BIN 
, BIN 
, BIN 


• • 


• i 


• • 


• • 


00111110 

01111111 

01111110 

10011001 

limili 

1H00111 

11100111 

101010 

10011000 

10011010 

00100010 

01010101 

11101000 

11000110 


10100101 
,BIN 10001001 
4-1,BIN 01010000 


323 

POKE 

USR 

••C** f5,BIN 

00000000 

324. 

POKE 

USR 

M C” +6.. BIN 

00000000 

325 

POKE 

USR 

••C* % 4*7 , BIN 

00000000 

326 

POKE 

USR 

**D" , BIN 11111111 

327 

POKE 

USR 

**D " +1,BIN 

00010000 

328 

POKE 

USR 

“D" 4-2 , BIN 

11111100 

329 

POKE 

USR 

"D"+3,BIN 

11111110 

330 

POKE 

USR 

**D" 4-4,BIN 

11111110 

331 

POKE 

USR 

D *• 4*5 , B IN 

00111100 

332 

POKE 

USR 

**D** 4-6, BIN 

00100001 

333 

POKE 

USR 

"D“4-7 , BIN 

11111110 

334l 

POKE 

USR 

•*E" , BIN 00000000 

335 

POKE 

USR 

M E M 4l,BIN 

00011000 

336 

POKE 

USR 

**E " +2, BIN 

00111100 

337 

POKE 

USR 

4-3 , BIN 

00011000 

338 

POKE 

USR 

"E" 4-4, BIN 

00011000 

339 

POKE 

USR 

** E ** 4*5 , BIN 

00100100 

34-0 

POKE 

USR 

"E" 4-6 , BIN 

00111100 

34-1 

POKE 

USR 

"E" 4-7, BIN 

00011000 

34-2 

POKE 

USR 

"F- , BIN mimi 

34-3 

POKE 

USR 

"F” 4-1 , BIN 

10011001 

34-4 

POKE 

USR 

••F M 4-2 .BIN 

mimi 

345 

POKE 

USR 

"P •* 4-3 , BIN 

100H001 

346 

POKE 

USR 

"F" 4-4 , BIN 

mimi 

347 

POKE 

USR 

"F" 4-5 , BIN 

10011001 

348 

POKE 

USR 

"F" 4-6, BIN 

11100111 

349 

POKE 

USR 

**P " 4-7 , B IN 

11100111 

350 

POKE 

USR 

**G" , BIN 00111000 

351 

POKE 

USR 

,, 6 M 4l,BIN 

00111100 

352 

POKE 

USR 

"G” 4-2 , BIN 

01000001 

353 

POKE 

USR 

** G ** 4-3 , BIN 

10000001 

354 

POKE 

USR 

G•* 4-4 , BIN 

01000011 

355 

POKE 

USR 

%% G" 4-5 , BIN 

01000001 

356 

POKE 

USR 

*’ G" 4-6, BIN 

00100100 

357 

POKE 

USR 

"G- 4-7 , BIN 

00000000 

900 

RETURN 



1000 

LET 1 

R$» = ’* 

******************* 


*** **** ****** 
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NEMICHE ffl) LRNCIRNDO BOHBE C £ 

) DRL MOSTRO ELICOTTERO - 

TOSTO (D)- 


PUNTEGGIO 

















































Pur se ben programmato e perfetto, al computer 
manca un minimo di fantasia. 

Ed in questo gioco, tipico dei banchi di scuola, per 
quanto ben studiate siano le sue mosse, non è 
infallibile. 

È. un’occasione per allenarvi e imparare nuove 
strategie! 

Sono vostri il simbolo «x», e la prima mossa. 

Per posizionare i segni mettere prima la fila, poi la 
colonna. 


1 REM************* 

2 REM** FILETTO ** 

3 n r M ^ 4r nL» ^ X ^ ^ ^ 

I I ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 

10 REA LOOP DEL GIOCO 
20 GOSUB 1020 
30 GOSUB 780 
40 GOSUB 920 
50 GOSUB 630 

60 IF FIN=1 THEN GOTO 1260 





STRUTTURA 

20 

Loop principale 

120 

Valutazione mossa computer 

630 

Prova di ciascuna mossa possibile 

780 

Mossa giocatore 

920 

Display delle mosse 

1020 

Set Up schermo 

1220 

1 __ 

Fine gioco 








70 IF FIN=2 THEN 40SUB 920:GOTO 1220 

80 IF DR=1 THEN GOTO 1240 
90 GOSUB 920 
100 GOTO 30 

110 REA U4LUT62I ONE DELL,4 A0SS4 

120 FOR 2=1 TO 4 

130 XC2}=0 

140 YC2l=0 

150 NEXT 2 

160 FOR L= 1 TO 3 

170 S=0 


180 1=0 

190 FOR K=1 TO 3 
200 IF 4CL,KJ = 1 THEN S=S+1 
210 IF BCL,K)=l THEN T=T+1 
220 NEXT K 

230 IF S =0 1 HEN YCT + n=YC7+n + l 

240 IF T=0 THEN XCS + 11=XCS+ 11 i 1 

250 NEXT L 

260 FOR L=1 TO 3 

270 T=0 

280 S=0 
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m 

820 IF I<1 OR I>3 THEN PING : GOTO 780 

830 IF J<1 OR J>3 THEN PING : GOTO 780 

840 IF PC 1,0 = 1 THEN GOTO 890 

850 IF BC 1,0 = 1 THEN GOTO 890 

860 AC 1,0 = 1 

870 REN INPUT GIUSTO 

880 RETURN 

890 PRINT ''Casella già’ occupata 1 ' 

900 PING 
910 GOTO 780 

915 REN DISEGNO DELLA NOSSA 
920 FOR J=1 70 3 
930 FOR 1=1 70 3 

940 IF AC 1,0 = 1 THEN CURSET 1*1 8-t 80, J*24 
,3: CHAR ASCC''X 1 '1,0, 1 

950 IF BC1,0 = 1 THEN CURSEl 1*18+80, J*24 
,3: CHAR ASCC"0"D,3,1 

960 IF AC I,JD + BC1,JD=0 THEN CURSET 1*18 + 
80,J*24,3 • CHAR ASCC" "3,0, 

1 

970 NEXT I 
980 NEXT J 
990 RETURN 

1000 REN D~NENSIONANENT0 DELLA SCACCHIER 
A 

1020 DIN AC3,33 

1030 DIN BC3,33 

" * • 

1040 DIN XC43 : DIN TC43 
1050 INK 7 
1060 PAPER 0 
1070 HIRES 

• • 

1080 CURS0T 109,10,2 : DRAH 0, 80,2 
1090 CURSET 127,10,2 : DRAU 0,80,2 
1100 CURSET 90,40,2 : ORALI 55,0,2 
1110 CURSET 90,64,2 : DRAU 55,0,2 
1120 REN *********** 

1130 REN ** PAOLO ** 

1140 REN ** 1984 ** 

1150 REN ** LIST. ** 

1160 REN *********** 

1170 FIN=0 
1180 DR=0 
1190 RETURN 
1200 REN 
1210 REf 

1220 PRINT •' HO UINT02 5 2 11 

1230 GOTO 1270 

1240 PRINT M ROTTA." 

1250 GOTO 1270 


290 FOR K=1 TO 3 
300 IF OCK,LD — 1 THEN S=S+1 
310 IF BCK*,L3 = Ì THEN T=T+1 
320 NEXT K 

330 IF S=0 THEN YCT + 13=YCT+13-»*1 
340 0F T=0 THEN XCS-i i0=XCSi l)i-1 
350 NEXT L 
360 GOSUB 430 
370 GOSUB 530 

380 IF XC43=1 THEN FIN=1:RETURN 

390 IF Y C 4 3 = 1 THEN FIN=2 

400 E=128*YC43-63*XC33+31*YC33-15*XC23+7 

*TC23 

410 REIURN 
420 REM 
430 T=0 
440 S=0 

450 FOR K=1 TO 3 
460 T=T-»OCK,K3* 

470 S=S-»BCK,K3 
480 NEXT K 

490 IF S =0 THEN XCT+n=XCT + 13 + l 

500 IF S=0 THEN YCS + 13=YCSt- 13 + 1 
510 RETURN 
530 T=0 
540 S=0 

550 FOR K=1 TO 3 
560 T=T-iOC4-.<,K3 
570 S=Si-6C4-K,K3 
580 NEXT K 

590 IF S=0 THEN XCT+13=XCT + 13.+ 1 
600 IF 1-0 THEN YCS+13=YCS+13 + 1 
610 RETURN 

620 REfl PROUO OGNI flOSSO POSSIBILE 
630 N=-256 
640 DR=1 

650 FOR J = 1 TO 3 
660 FOR 1=1 TO 3 

670 IF OC 1j J 3 = 1 OR BCIj J 3 = 1 THEN GOTO 74 
0 

680 DR=0 

690 BC1 5 J 3 = 1 

700 GOSUB 120 

710 IF FIN=1 THEN RETURN 

720 IF E>N THEN N=E : A=I : B=J 

730 BCI,JD=0 

740 NEXT I 

750 NEXT J 

760 BCA,BD=1 

770 RETURN 

780 REN INPUT NOSSA 

790 INPUT "La tua mossa Cr i ga,co lonna}" ; 
A$ 


1260 
1270 
1280 
129 


FRINÌ " HAI UINTOS22" 

INPUT "Giochiamo ancora CS/ND";AS 

IFA«="S" THEN RUN 

TEX7 


800 IF LENCAS102 THEN PING: GOTO 780 
810 J=UALCNID*CA$,1,1D D:I=UALCNID$CA«, 2, 



li 



























La visione della rappresentazione grafica di una se¬ 
rie di dati e cifre è sicuramente più agevole ed im¬ 
mediata della stessa tabella; i diagrammi a coordi¬ 
nate polari ne costituiscono un esempio. 
Un’applicazione? Questo mese avete speso L. x per 
il vestiario, L. y per l’auto, L. z per i libri... e così via. 
Vestiario, auto e libri sono gli oggetti della vostra in¬ 
dagine, x, y e z i corrispondenti valori. 
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1 REM 

2 REM 

3 REM 
4- REM 

5 REM 

6 REM 

7 REM 

8 REM 

9 REM 
10 REM 
20 CL 5 


4444444444444444444444 

4 

4 DIRGPfìMMI 

* 

* R 

4 

4 COORDINRTE POLRRI 
4 

4444444444444444444444 


4 

ó 

4 


PRINT ' •* DIRGRRMMI R 
COORDINRTE POLRRI M 

25 PLOT 0,8: DRRU 255.0: DRRU 
0,187: DRRU -255,0: DRRÙ 0,-175 
30 INPUT “Numero degli ogqett 

. de l l ' i ndagine = n 

35 IF n >15 THEN PRINT FLR5H 1 
RT 21,0;"Troppi oggetti 0 : PRU5E 
200: GO TO 20 

4.0 DIM i$(n,9): DIM Vtn) 

50 DIM a cn 41) 

80 FOR i =1 TO n 

70 INPUT “Nome dell'oggetto = 
*•; LINE i$(i) 

80 input “Uà lo re de 11 'oggetto 

s";vci) 

90 INPUT "E'corretto 7 (s/n.» 

; LINE q$ 

100 PRINT RT if2,3;i$(i),V(i) 
110 IF q $ = “n“ THEN GO TO 70 
120 LPRINT i$(i) ,V (i ) : REM bat 
tere questa riga solo se si ha 
la s tampante 
130 NEXT i 


« • 


14-0 LET tot=0 
150 FOR i=1 TO n 
160 LET tOt=tOtiV(i) 

170 NEXT i 

178 REM 

179 REM 

180 REM DISEGNO DEL GPRPICO 
131 REM 

182 REM 
190 CL5 

200 CIRCLE 84- , 84^ , 75 
210 LET ar> Q =0 
220 FOR i =ì TO n 

230 LET ang=ang+v < i ) 42*PI/tot 
24.0 LET a Ci +1) =an q 

250 PLOT 84-, 84- 

260 drru 75iCOS ang,75»5iN ang 
270 REM 

280 LET U = .54 (a (i ) 43 ( i fi) ) 

290 PRINT RT 11-74SXN U.10474CO 
5 u; i 

300 NEXT i 
310 REM 

320 FOR i=1 TO n 

330 PRINT RT i , 21; i : •• : •• ; i $ r i ) 
34.0 NEXT i 

35© COPV REM Battere questa 
riga sol o se avete la stampante 
360 INPUT “Nuova analisi 7 Cs/n 
) LINE j$ 

370 IF J$=“s“ THEN GO TO 1 
380 CL S 

390 PRINT RT 10,10;“FINE PROGRR 

M M R “ 


alti 
bass i 
iì) a g r i 

Al & S S 1 

nasoni 



















































Il tracciato del nostro rally è quanto mai tortuoso e 
difficile: occorrono occhio e prontezza di riflessi per 
evitare i massi che sbarrano la strada. 

Chi arriverà più lontano? 











Jfn 


r 

i 

W 1 ' 




/ 



VARIABILE 




STRUTTURA 


L$ 

= Tasto per lo spostamento a 
sinistra 

135 - 

- 194 

Disegno strada 

D$ 

= Tasto per lo spostamento a 

205 - 

- 252 

Definizione caratteri 

? 


destra 

260 - 

- 330 

Valori iniziali 

LV 

= Numero di auto disponibili 

• 

340 

Scrolling 

se 

= Chilometraggio 

345 - 

- 380 

Movimento dell’auto 






J. 


75 





























































































10 REM XXXXX> k********************* 
20 REM X * 

30 REM X RALLY * 

* * 
X ORIC-1 * 

60 REH * * 

70 REd XXXXXXXXXXXXXXXXXXXXXXXXXXX 
80 REM 
90 REM 


40 REM 
50 REM 


SINISTRA’" ;L$ 


100 GOSUB 598:CLS 
114 PRINT 

116 INPUT"QUALE TASTO 
118 PRINT 

120 INPUT"QUALE TASTO ’DESTRA’";R$ 

122 CLS 

130 GOTO 210 

134 REM 

135 REM X DISEGNO STRADA 8 

136 REM 

140 FOR J=1 TO RI 
150 PLOT J,K,123 
160 NEXT J 
170 FOR J =R2 TO 35 
180 PLOT J,K,123 
190 NEXT J 

192 R3=I NT CRNDC13X5 D +R1 • 

194 PLOT R3,K,123 
200 RETURN 

204 REd 

205 REd «DEFINIZIONE CARATTERI X 
210 FOR J=47056 TO 47071 

220 READ A 
230 POKE J 5 A 
240 NEXT J 


284 PRINT CHR$C173 
290 FOR K=1 TO 26 
300 GOSUB 140 
310 NEXT K 
320 K=1 
330 LU=3 
335 REd 

340 PRINT CHR$C113; 

345 REd 
350 K$=KEY$ 

360 IF K$=L$ THEN C=C-1 
370 IF K$=R$ THEN C=C+1 
380 IF SCRNCC,R3 = 32 THEN 430 

384 REd 

385 REd X COLLISIONE X 

386 REd 
390 EXPLODE 
400 LU=LU-1 

410 IF LU=0 THEN 500 
415 REd 

420 IF K$=L$ THEN C=C+1 

422 IFK$=R$ THEN C=C-1 

430 PLOT C,R,122 

440 GOSUB 140 

450 R1=R1+INTCRNDC13X33-1 

460 R2=Rl+5 

470 IF RI<2 OR R2>35 THEN 450 
480 SC=SC+1 
490 GOTO 340 

494 REd 

495 REd X FINE ROUTINE X 

496 REd 

500 FOR n=l TO 28 
510 PRINT 
520 NEXT d 

530 PRINT"Kd.PERCORSI = ";SC 
540 PRINT CHR$C17 3 
550 END 


250 

DATA 12,63,63,30,63,63,12,0 

598 

CLS :PRINT 






252 

DATA 63,63,63,63,63,63,63,63 

599 

PRINT 






254 

REd 

600 

PRINT" 

OOO 

000 

0 

0 

0 0 

255 

REM *UALORI INIZIALI * 

610 

PRINT" 

0 0 

0 0 

0 

0 

0 0 

256 

REM . . 

620 

PRINT" 

000 

000 

0 

0 

000 

260 

PAPER 7 :INK 0 

630 

PRINT" 

00 

0 0 

0 

0 

0 

270 

RI = 16 

640 

PRINT" 

0 0 

0 0 

000 

000 

00 

272 

R2=21 

650 

UJAIT 500 






280 

C=18 

660 

RETURN 






282 

R=26 

































Dopo l’esplosione del Pianeta Chronos, le sei parti 
della Chiave del Tempo sono andate disperse nella q 
G alassia. 

Nominato Guardino del Tempo, dovrai intraprende¬ 
re la difficile e pericolosa ricerca a bordo di una na- 
vetta spaziale, sfidando Spazi sconosciuti e Pianeti 
misteriosi. 

Riuscirai a trovare le sei parti della Chiave prima di f 
aver esaurito tutta l'energia della navetta? 





3.REM GUARDIRNO DEL TEMPO 

5 DIM K?i<4),Z$<l),A^C6,6,6,1) 

6 K?i(3)=700 : F=75 

10 PRINT'Tl" : REM CLEAR SCHERMO 
20 PRINT"3WST0'CREANDO" 

25 PRINT"** LA GALASSIA" 

30 B=INT<RND<1 
40 C=INT<RND<1>#6> 

50 D=INT<RND<1>#6> 

60 E=INT<RND<1>#2> 

70 ft'/.CB> C> D> E)=2 
75 F=F-1 : IF F<0 THEN 85 






/ 7 
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BEI SU GLODNOB" : GOTO 90 


30 GOTO 30 

85 PRINT "IT 1: REM CLERR SCHERMO 
90 GN=INT < RND <1> *2) +1 
100 PRINT" ZGIN121 DR GLODNOB" 

105 PRINT 

110 PRINT"QUADRANTE 5" 

115 PRINT 

120 PRINT"SETTORE 3,4" 

125 PRINT 

130 PR I NT "r*SfTEMPO"GN* 1000 "ANNI LUCE" 

PR I NT 

140 PRINT"liNSERIRE COORDINRTE" 

150 INPUT"QURDRRNTE";G 
160 INPUT"SETTORE";H 
165 PR I NT " fS" 

170 INPUT"SETTORE";I 
180 INPUT"TEMPO";J 
185 K^<3)=KJi<3)-5 
190 IF AX<G,H, I, .0 = 1 THEN F'RIHT" 

200 IF fl?i<G,H, I, J»1 THEN 300 
210 PRINT"kSPRZIO":GOTO 140 
300 PRINT"SEI SU UN PIRNETR" 

310 PRINT" SHQUADRANTE"G 
320 PR I NT " LETTORE " H, I 
330 PR INT "STEMPO " J* I NT < RND <0*7) 

340 KZ <1) = INT < RND <1)*20 > +1 
350 IF mi>>5 THEN 370 
360 PRINT"aDESERTO" : GOTO 140 
370 IF K7.<1»10 THEN 400 
380 PR I NT " I^SRB ITRNTI OSTILI" : GOTO 500 
400 PRINT" «SPEZZO DELLA CHIAVE","S DI CHRONOS " 
410 K;«2)=K7:<2) + 1 

420 PR I NT " HRI "KK<2)"PEZZI","DELLA SCHIAVE" 

430 IF KZ<2>=6 THEN PRINT"r*HAI VINTO ! ! ! " = END 
440 GOTO 140 , > 

500 GET Z$<1) 

510 IF Z$<1)="" THEN 540 / 

520 GOTO 140 

540 PRINT"a=lTTRCC0 NEMICO!!!" 

550 K)i<3)=K^<3)-INT<RND<l)*50) + l 

560 PR I NT " SCNERG IR:" KZ3 

565 IF K?i < 3 ) < 1 THEN PR I NT " 3HRVICELLR r® I STRUTTA !" 
570 FOR T=1 TO 200 : NEXT 
580 GOTO 500 





: END 
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Mattoni e muri rendono la vita difficile al povero ser¬ 
pentone prigioniero in un giardino. 

Uno dei punti principali sui quali si articola il program¬ 
ma è il vettore V che contiene gli indirizzi di ogni parte 
del serpentone. 

Ogni volta che questi effettua un movimento (ad es. 
la testa che prende una data direzione), il valore di 
ogni singolo elemento viene posto nell'indirizzo 
precedente. 

Quanto detto è mostrato dalla funzione V(I) = V(I-1) 


I mattoni che incrementano il punteggio sono posi¬ 
zionati casualmente, mentre quelli delle penalità ven¬ 
gono posti davanti alla testa del serpentone ad una 
distanza variabile a seconda del livello di difficoltà 
scelto. 
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STRUTTURA 

• s§ 

0 - 

- 123 

inizializzazione gioco 


124 

inizializzazione variabili 

150 - 

- 168 

riconoscimento errori e acquisizione punteggio 

168 - 

- 208 

blocco generazione mattoni, punti, allungamento ser- 



pentone tramite Random 

280 - 

- 300 

generazione del mattone penalità 

1000 - 

■ 1010 

sottoprogramma movimento 

2000 - 

- 2050 

sottoprogramma decodifica direzione serpentone 

3000 - 

- 3060 

sottoprogramma gestione degli errori e delle penalità 

5000 - 

■ 5010 

sottoprogramma generazione e ricerca mattoni punti 

7000 - 

- 7020 

punteggio 

8000 - 

- 8500 

visualizzazione punteggio realizzato 

9000 - 

■ 9500 

presentazione e scelta del livello di difficoltà 

9500 - 

- 9700 

allungamento serpentone 

9800 - 

- 9930 

piano di gioco e posizionamento iniziale del ' 



serpentone. 

4 





0 GOTO9800 

1 PRINT"3" ■ P0KE36879,8 = P0KE36878,15 

2 BIMVX<15> 

4 GOSIJE9800 
95 C0B=4 

120 GOSUB9900 

121 PRINT"B3sP0INT";PTflB<13)"TIME 0009" 

123 GETW$ : IFU$=""THEN123 

124 TI$="000000" 

125 K=-22 

130 GETfl*: IFfi$=""THEN145 

135 PRINT"H3aPQINT";PTRB<13)"TIME ";RIGHT$<TI$,4) 

136 IFTI$>"000300"THEH8000 


140 

145 

150 

160 

165 

166 

167 

168 
K<V> 

169 

170 

175 

176 

179 

180 
183 
200 
205 
208 
210 
215 


GOSUB2000 
VX ( 0 ) =VX < COD ) 


FORI =C0BT02STEP-1 : VX< I >=VX<I-1> :NEXT : VX(1 
GOSUB1000 
POKEVX<0),32 

IFVX < 1) =Q 1 RNBQ2= 102THENGOSUB7000 : GOTO 169 


>=VX< 1)+K 


Vi 


IFVX <1> =Q1THENGOSIJB3000:1 FQ2= 160THENGOSUB9800 : GOSUB9900 

V=VX < 1 ) +K •• IFPEEK < V ) = 160ORPEEK < V > =81ORPEEK < V > = 102ORPEEK < V > = 127THENQ1 =V ; Q2=PEE 


IFG1=1THEN176 

RX=RNB<1)#5+1 

IFRX=1THENGOSUB5000 

G=G+1:1FG=NMTHENPOKESX >32 :G1=0 

IFCOB=15THEH200 

RX=RNB<1>#30+1 

IFRX=3THENCQB=C0B+1 :GOSUB9500: VX< COB)=VX< COB-1> +HLL 

IFFFO0THEN210 

IFI NT < RNB(1)#10+1)=1THEN250 

GOTO300 

IFCO4THENP0KEFF, 32 : POKEFF+30720, 1 : FF=0 = CC=0 
CC=CC+1 


220 GOTO300 

250 FF=VX<1>+K#BF 

255 IFPEEK<FF>=160THEN300 


20 



























- 


260 POKEFF / 127 : POKEFF+30720,2 
300 GOTO130 

999 END 

1000 FORI=1TOCOD:POKEVXCI>,81-NEXT:RETURN 
1010 REM #MOVIMENTO# 

2000 IFAf="B"THENK=22 
2010 IFAf="V"THENK=-22 
2030 IFAf="G"THENK=-1 

2040 IFAf="H"THENK=1 

2041 IFQ+K=0THEN3000 
2045 Q=K 
2050 RETURN 
2060 REM #DIREZIONE# 

3000 FORI=0TO4 

3010 P=P-50 : PRI NT " 5!SPO I NT " ; P 
3020 FORKK=lTOCOD : POKEVX<KK>+30720,2 : NEXT 
3030 FORJ=0TO50:P0KE36875,200 :NEXT 
3040 FORKK=lTOCOD : POKEVXCKK)+30720, 1 : NEXT 
3050 FORJ=0TO50:P0KE36875,230 :NEXT:NEXT:P0KE36375,0 : RETURN 
3060 REM *SBAGLIO* 

5000 SX=RND<1)#459+7703 : IFPEEK<SX > = 160THEN5000 
5005 S1X=RND(1> #101 +100 
5007 NN=INT<RND<1>*16+10) 

5010 POKESX,102 :G=0 = G1 = 1 : RETURN 
5020 REM *RIC. MRTTONE* 










7000 FQRX=S 1XTO0STEP-10 : P=P+10 : PR I NT " Sia^'O I NT " ; P : P0KE36875,230 : FORVV=0TO 100 : NEXT 
7010 P0KE36875, 0 : PRINT"aa:POINT" ; P : FORVV=0TO 100 : NEXT •' NEXT : Q 1 =0 : Q2=0 : RETURN 
7020 REM *INC. PUNTI# 

8000 REM #FINE* 

8010 PR I NT " 3 HRI RERLIZZRTO SHHHUr 

8020 PRINTTRB<8>;P <( 

8030 PRI NT "[«IP a PUNTI " 11 

8040 PRINT"W«tì VUOI RIPROVARE 
3050 GETRf : IFRf=""THEN3050 
8060 IFA$="S"THENCLR : GOTO1 
8070 PR I NT" n(D®P" : Qf= " )»»l" 

3080 FORU=1T02 
8100 PRINTQf" I" 

8110 PRINTQf" I" 

8120 PRINTQf" I" 

8130 PRINTQf" I—, I 
8140 PRINTQf" I I I 
8150 PRINTQf" 

8160 PRINTQf" 

3170 PRINTQf" 

8180 Qf=" )»»»»»»ir : NEXT 
8500 GOTO8500 

9000 PRINT"ZD®fl" : P0KE36S79,106 
9081 Bf=">••»»! 


I 
I 

I" 

II 


II 

II 

II 



» 


» 






" : pr i NT " asr ; Bf ; " ni" ; Bf ; ’ v ; Bf ; " li" ; Bf ; " jt ; Bf ; " rsr ; Bf 


• uhm 

} ™ 


9002 PRINT"4 

9003 PRINT" 
9005 FRINT" 


9007 

9008 


\ r% K K r-, r-, + r-, n. r-, 

IMI -KHIIIIIIIH 

■' '■ J I J _J \ '-J J J 


PRINT" ' '• J I 
Bf=" >1)11111" 

9009 print" »*" ; Bf ; " W" ; Bf" Bi" ; Bf ; " ik" ; Bf ; " !ii" ; Bf ; " T Bf " ■" 

9010 FORI=0TO10000:NEXT 

9020 PRINT'TJa COMANDI " 

9021 PRINT"WW avi ALTO":PRINT"M aBS BASSO" : PRINT"® SCI DESTRA":PRINT"» SU 
TRA" 

9030 PRINT":«fla REGOLE " 

9040 PRINT-HBfi PUNTI";PRINT"WSTiS PENALITA /M 


» 


SINIS 


I 


* 



















































9050 

9098 

9099 

9100 
9110 
9120 
9130 
9140 
9150 

9155 

9156 

9159 

9160 
9170 
9500 
9600 
9610 
9620 
9630 
9700 

9800 

9801 
9810 
9900 
9910 
9920 
9930 


PRINT" MJON BISOGNA URTARE CONTRO IL MURO E 
FORK=0TO10000 :NEXT 
PRINT"73JLIVELLI DI DIFFICOLTÀ^’ 

PRINT"Wtìl... IMPOSSIBILE" 

PRINT"M2...DIFFICILE" 

PRINT"M3.. .MEDIO" 

PRINT"m. . .FACILE" 

PR I NT " MflSWOJALE SCEGLI 
GET 0$ : I c 0$=""THEN9150 
IFASC< 0$)C490RASC< 0$ >>52THEN9150 
FD=2: IFDF>2THENFD=1.5 
DF=VAL<0$> 

DF=DF*FD 
GOTO 1 

REM ^ALLUNGAMENTO* 

IFK=22THENALL=-22 
IFK=-22THENALL=22 
IFK=-1THENALL=1 
IFK=1THENALL=-1 
RETURN 
A$="SG 

PRINT"n«"A$; : FORI = 1TO20 : PRINT"3 "SPC<20)"a ";:NEXT 
FORI=0TO21 :P0KE8164+1,160:P0KE33884+1,6:NEXT: RETURN 
A=7910 
VX d > =A 

FORI=2T0C0D: VX<I)*VX<I-1> +22 :NEXT 
GOSUB1080:RETURN 


CONTRO SE STESSI" 


BB 























sta o scegliendo le condizioni di visibilità. 

È iniziato il conto alla rovescia... tra poco tocca a voi!! 


ISTRUZIONI 


LARGHEZZA PISTA D da 3 a 12 - più è elevato il 
numero, giù grande è la strada 
VISIBILITÀ 1 - cattiva 

2 - discreta 

3 - buona 

MOVIMENTO A DESTRA = 

MOVIMENTO A SINISTRA = 

PREMETE: “C” per ripetere il gioco alle stesse con¬ 
dizioni di prima 

“R” per giocare con nuove condizioni 
"Q” per riprendere il gioco 


Ecco l’occasione per cimentarvi in una gara auto¬ 
mobilistica ... dove non importa arrivare primi, ma 
coprire la maggiore distanza possibile. 

E se vi sentite subito campioni potete aumentare il 
livello delle difficoltà variando la larghezza della pi- 







Ì 
































































TU. 







/ 

, / 

.. H W J jt 


MPF II 

CPU 6502, 1 MHz 

ROM: 16 K con interprete basic 

appiè soft compatibile 

RAM: 64 K 

VIDEO 

- Testo: 40x24 (2 pagine) 

- Grafica GR: 40x48 6 colori 
(2 pagine) 

- Grafica HGR: 280x192 6 colori 
(2 pagine) 


Hai già collegato il tuo registratore a 
cassette ed il tuo televisore - meglio 
se a colori - ad MPF II? Bene, allora 
il sistema è pronto. 

Più di 100 giochi su cassette e cartridge ed oltre 50 

programmi gestionali su disco costituiscono parte del software esistente per MPF II. Così puoi diver¬ 
tirti, studiare, lavorare e se necessario ampliare il tuo software. Hai, forse, scarsa familiarità col basic? 
Nessuna preoccupazione. Il pratico e facile manuale in italiano che accompagna MPF II è la solu¬ 
zione migliore. MPF II è piccolo, leggero, trasportabile, ed ha grandi capacità di memoria e d'uso. 

Noi lo chiamiamo 'Tinvestimento espandibile ", perchè sono tanti i connettori che permettono 
di espandèrlo fino a configurazioni estremamente potenti e, soprattutto, già tutte attuabili. 


DiulTEK campuTER 

VIA VALLI. 28 - 42011 BAGNOLO IN PIANO (Reggio Emilia) Tel. (0522) 61623 r.a. 























Alcuni punti vendita DIGITEK COMPUTER 


Liguria - Lazio - Toscana 


FAMILY COMPUTER 

Via N. Sauro 1/5 

Savona 

I.L. ELETTRONICA snc 

Via Lunigiana 481 

La Spezia 

ATEMA sas 

Via B. Marcello 1/A-1/B 

Firenze 

PAOLETTI FERRERÒ srl 

Via II Prato 40/R 

Firenze 

SUMUS srl 

Via S. Gallo 16/R 

Firenze 

FGM ELETTRONICA 

Via S. Pellico 9/11 

Firenze 

LOGOS INFORMATICA 

V.le Concordio 160 

Lucca 

JUNIOR ELECTRONICS 

Via C. Matti 32 

. Pisa 

C D E 

Via Adua 350 

Pistoia 

MEDIA DATA srl 

Via Lorenzetti 32 

Arezzo 

ARANCIO SALVATORE 

Via Oberdan 47 

Grosseto 

BIT COMPUTERS 

Via Flavio Domiziano 10 

Roma 

ELETTRONICA RUBEO 

Via Ponzio Cominio 46 

Roma 

R.C.E. srl 

P.zza S. Donà di Piave 26 

Roma 

STEREO IN 

Via Bellinzona 29 

Roma 

SUONO VIDEO 

Via delle Fornaci 1 

Roma 

RUBEO ALDO 

P.zza Bellini 2 

Grottaferrata 

BIT HOUSf 

Via Kennedy 100 

Monterotondo 


Emilia Romagna - Marche 


MASETTI PAOLO 

Via Gonzaga 11 

Guastalla (RE) 

GEFFEL 

Via Correnti 11 

Pesaro 

ZI LI ANI FRANCO 

Via Manfredi 28 

Fiorenzuola (PC) 

LUCA ELETTRONICA 

Via Brugnoli 1/A 

Bologna 

RAGNI NINO 

Via Cavour 25 

Parma 

EDP DI PIETRI 

Via Carpi 30 

S. Martino in Rio (RE) 

CANALGRANDE INFORMATICA 

C.so Canalgrande 14 

Modena 

MICROINFORMATICA 

P.zza M. Partigiani 31 

Sassuolo (MO) 

CHIAPPONI LUCIANO 

Via Mantova 8 

Parma 


Lombardia 


COMPUTER SET 

Via Varese 38/C 

Gallarate (VA) 

ELETTROPRIMA 

Via Primaticcio 162 

Milano 

L’ELETTRONICA 

Via Vivaldi 8 

Varese 

SENNA GIANFRANCO 

Via Calchi 5 

Pavia 


Campania 



Via Ruggì 25 Salerno 

Via Roma 374 Napoli 

C.so A. Lucci 96 Napoli 


B.L.M. HARD SOFT 
SPOT 2 sas 
DATA SERVICE srl 

















>51294,40 








130 U = 
= 47 
140 CR 
150 X = 
0 

160 LC 
170 ML 
180 EL 


1 : Z 


0 : S C 


912:T8 


38: F 7 


2:CC » 9 

0:Y = 0:L = 0:R = 0: GOSUB 350 


O. 5 
136:MR 
1 : ER = 


m 149 
37: F5 


45 : F 6 


46: RC 


1 - 
190 

Q - 

200 

X + 

210 

220 

r>7fì 

240 

241 
250 


LC 

Q = PEEK (78) + 256 * F'EEK (79): 
RND ( - Q): GOTO 210 
PLOT X, Y : PLOT X - U,Y - U: PLOT 
U,Y - U: RETURN 

GOSUB 2000: TEXT : HOME : FRINT 
FRI NT TAB ( 1 > ; "ROADRACE" 

PRINT :T = O:N « O 
FRI NT 

INPUT "ROAD UJIDTH (3-12) 7 " ; W 
W = INT (W): IF W < 3 OR W > 12 THE 


600 

CALL. 768: Q 

= PEEK 

(784) 


6 1 0 

IF G m ML 

THEN X 


X - U 


620 

IF Q = MR 

THEN X 

= 

X + U 


630 

IF SCRN( 

X, Y) = 

Z 

THEN • 

GOSUB 20 

0: GOTO 500 





640 

GOTO 1000 





1000 

.FOR Q = U 

TO 6: 

COLOR 

= CC: GOSUB 







t 




I 


I 


N 240 

260 PRINT : PRINT "VISIBILITY CONDITI 
ONS" 

280 PRINT "1-BAD" 

290 PRINT "2—FAIR" 

300 PRINT "3-G00D": PRINT 
310 INPUT "VISIBILITY (1-3) ? ";V:V = 
INT (V) 

320 V = V + 1: IF V < 2 OR V > 4 THEN 

310 

330 N = N + 1 : L = 19 - W / 2:R = L_ + W 
+ 2 

340 X = 20:H = 0:Y = 47 - V * V 
345 TEXT 

350 GR : POKE - 16302, Z: F’OKE 34, U 

360 POKE 33,38: POKE 32,U 

370 COLOR Z: FOR Q « 40 TO F7 

380 HLIN Z,39 AT Q: NEXT 

390 COLOR CR: HLIN Z,39 AT Z: HLIN Z, 


39 i 

AT U 






400 

VLIN Z 

9 F7 

AT 

Z: 

VLIN Z,F7 

AT 39 

410 

HLIN Z 

,39 

• 

AT 

F7 



420 

n 

FOR Q 

= Z 

TO 

F7 : 

HLIN L,L 

+ U AT 

u 

430 

HLIN R 

, R 

• 

+ U 

AT 

Q: NEXT 


440 

COLOR 

CC: 

GOS 

UB 

200 


450 

GOSUB 

3000: POKE 

37,23 


500 

COLOR 

Z: 

HLIN 

1 u. 

T8 AT F7: 

CALL SC 


COLOR CR 



« - 


r, 


ET cr 

JUj 

VLIN Z,F7 AT 

Z: VLIN Z,F7 AT 

39 







510 

HLIN U,T8 AT 

F7: HLIN L,L + 

U AT 







F5: 

HLIN R,R + U i 

AT F5 








520 

H — H + U: Q = 

RND (U): IF Q 

> RC 

AN 

200 





D R 

< ER THEN L = 

L+U:R=R+U 



1010 

FOR J = 

U TO 

100: 

NEXT : COLOR = 

530 

IF Q < LC AND L > EL THEN L ■ 

= L - 







U : R 

= R - U 




Z: GOSUB 200 




540 

HLIN L,L + U 

AT F6: HLIN R,R 

+ U 

AT 

1020 

FOR J = 

U TO 

30 : K 

= PEEK ( - 16 


• 




336) : 

NEXT : 

NEXT 



F6 





1030 

COLOR 

= CC: 

GOSUB 

200: POKE 32, 

550 

COLOR CC 




Z: POKE 33,40 

: CALL 

SC 





<?6 
















1040 COLOR = Z: FOR Q = U TO 5: HLIN 
Z,39 AT F7: CALL SC 

1050 NEXT : POKE - 16304,0: POKE 34, 

20: POKE - 16301,0: HOME 

1060 M=H*5:T=T+M 

1070 PRINT "YOU WENT ";M;: GOSUB 1300 

1080 PRINT TAB( 28);"NOW HIT" 



1081 

PRINT 

"MILES 

FOR 

A TOTAL" 

; : GOSUB 

1300 






1082 

PR I NT 

TAB ( 

25) ; 

"*C* -CONTINUE" 

1083 

300 

PRINT 

"OF " ; 

t; " 

MILES";: 

GOSUB 1 

1084 

PRINT 

TAB ( 

25) ; 

"’R’ -RESTART" 

1085 

PRINT 

"IN " ; 

n; " 

DAY(S)";: 

GOSUB 




1 300 

1086 
1087 
1 090 
1 100 


PRINT 
GET Q* 
IF Q* 
IF Q* 


TAB( 25) 


■ Il ? 


GT--QUIT"; 


"C" THEN 330 
"R H AND Q* 


> 


"Q" THE 


N 1087 

1170 TEXT : HOME : PRINT 
1180 PRINT "AVERAGE MILES PER DAY=";T 
/ N 

1190 PRINT : PRINT : PRINT : IF D$ = 

"R" THEN 220 
1200 END 

1300 PRI NT TAB ( 21);: PRINT " ! M 8 : RETU 






RN 

1310 NORMAL : RETURN 


2000 

GR : HOME : COLOR CR: RESTORE 


2010 

X = 16: 

Y = 0: PLOT X,Y: PLOT X 

+ 

8, Y 
2020 

FOR Y 

= 1 TO 39: READ Q:X = X 

+ 

Q - U 




2030 

PLOT X 

,Y: PLOT X + 8,Y: NEXT 


. 2040 

COLOR 

CC:X = 20: RESTORE 


2050 

FOR Y 

= 1 TC) 39: READ Q: X = X 

+ 

Q - U 


t 


2060 

GOSUB 

200: FOR J = 1 TO 30: NEXT 

2070 

COLOR 

Z: GOSUB 200: COLOR CC: 

NEXT 

: Y = 

39: GOSUB 200 

• 

2080 

FOR J 

= 1 TO 25: Q = F’EEK ( - 

16 

336) : 

NEXT 



2090 

FOR J 

= 1 TO 5: HOME 


2095 

PRINT 

Il II • 

9 


2100 

PRINT 

"R 0 A D R A 

C 

E 

II 



21 10 

FOR Q 

= 1 TO 250: NEXT : HOME 


2120 

FOR Q 

= 1 TO 250: NEXT : NEXT 

: RE 

TURN 

2200 

n 

DATA 

1, 1, 1, 1, 1, 1, 1,2,2, 2, 2, 

2 r> 

■**•••*■*•- 

2210 
, 0 

2220 

DATA 

0,0, 0, 0,0,0,0, 0,0,0,0, 

0, 0 

DATA 

1 1 1 1 

■«— * «*~ * ■*— ■! **-!• **—!• * * i i J- «i J- 


3000 

COLOR 

CR: VLIN Y - 10,Y AT L 

1 

3010 

VLIN Y 

- 10,Y AT L - 3: FOR Q 

rr 

Y - 10 TO Y 

STEP 2 


3020 

PLOT L 

- 4,Q: NEXT : FOR Q = 

1 TO 

1000 : 

NEXT 



3030 

COLOR 

CC: FOR Q = Y - 9 TO Y 

- 1 

STEP 

n 



3040 

FOR J 

= 1 TO 500: NEXT : PLOT 

L - 

4, Q : 

NEXT : 

RETURN 


3500 

FOR I 

« 1 TO 39: READ A: NEXT 

I 


4000 DATA 32,67,240,170,144,3,32,27,2 
40,138,141,16,3,96 

4001 FOR I = 768 TO 781: READ A: POKE 
I,A: NEXT I: RETURN 

















>CAALL L.L1305 
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<?7 
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Forse non tutti i possessori del VIC-20 sono a cono 
scenza delle molteplici possibilità del loro computer 
Una di queste è la capacità di poter ingrandire i ca 
ratteri. Provare per credere!!! 


A 

/ Il ^ 

i Ali _ 


in 

»\ g j • i 

\ 

y 

■ 

tv 

ir 

II) 

1 ' s 

. . ! i‘ ‘ ' 

= '[\ 

* n A 

II 

_ 1 




y> »*• 

r -. i 


1 • 

li l 




!■ 







\ 




% 1 


4 f*S r~ lui lIj ili ili ili ili » 1 « ili » * - ili ili «1 * ali I .il «li l i. «li il « i li « 1 « 

REM#*#*****######****#### 

5 REM INGRANDIMENTO 
6 REM CARATTERI 

7 D ET M A ^ ^ ^ ^ ^ il ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ili ^ ^ 
i\CLI iww w w W™ W W WT*^**t» 

8 POKE 657/128 

10 REM ABBASSARE TOP DELLA MEMORIA 
20 REM PER PROTEGGERE I CARATTERI 
30 POKE 56/20:POKE 55/0 
40 BEGIN»5120 : FINISH=7678 
50 REM LEGGI CARATTERI DALLA 
60 REM ROM ALLA RAM 
70 FOR I=BEGIN TO FINISH STEP 
80 P=PEEK<32768+ <I-BEGIN)/2> 

90 REM INSERISCI I DATI NELLA 
100 POKE I/P : POKE 1+1/P 
110 NEXT I 

120 REM DI AL VIC DOVE SONO I 
130 POKE 36869/253 

140 REM CLEAR DELLO SCHERMO & SUO CAMBIAMENTO 
150 PRINT CHR$(147) : POKE 36867/29 :POKE 36865/29 
160 REM ESEMPIO PRINT 



RAM 


CARATTERI 


170 PRINT TAB<44);"INGRANDIMENTO DEI 
180 END 


CARATTERI DEL VIC" 


28 




























Uno dei primi progetti a cui un hobbista del ramo 
mette mano, è forse quello di un Alimentatore Stabi¬ 
lizzato. Molti avranno preso lo spunto da qualche ri¬ 
vista specializzata, altri avranno eseguito da soli i cal¬ 
coli necessari. 

Quello che viene presentato è appunto un metodo 


pratico per adoperare il computer come un esperto 
progettista. 

Il programma chiederà due parametri: il voltaggio di 
ingresso e d’uscita e la corrente di assorbimento del 
carico ... al resto penserà lui! 

L’unico neo del sistema è che non è stato previsto 
il ROBOT atto ad eseguire il montaggio del circuito. 



10 REM 
20 REM : 

30 REM CRLCOLO COMPONENTI IN UNO STRBILIZZRTORE DI TENSIONE 
40 REM STRBILIZZRTORE DI TIPO ##SERIE## 

50 REM BELLUCCI FRANCESCO 
60 REM 
100 REM: 

110 R 













200 PEI NT "IT' 

300 POKE53280 >6 

400 PRI NT " 0" : PRI NTCHRf <14 >:PRI NTCHR$ < 8 ) 



a- A L C 0 L O» 


II 


a S T R E I L I 


R T 0 R I 


II 


ani T E N S I 0 N E 


II 


500 PRINT" 

600 PRINT 
700 PRINT" 

750 PRINT 
800 PRINT" 

900 PRINT 

1000 PRINT" a T I P 0 

1005 PR I NT : PR I NT : PR I NT : PR INTERI NT : PR I NT : PR I NT : PR I NT " PREM I UN TASTO PER CONTINUA 
RE" 

1010 GETQ$:IFQ$=""THEN1010 
1015 PRINT"0":PRINTCHR$<142> 

1020 PRINT" 



SERIE 


t>ll 


I 


» 


—r 

i 

. \ 
/ 

SRI" 


r\ / 

I C\/E 

I 


I 


c 


I 

V/ 


-1— 

I 

STTR1S I 
+ I 


II 

II 


I 


II 


II 


I 


II 


II 


✓ 


I " 
I " 


1030 PRINT" 

1040 PRINT" 

1050 PRINT" 

1060 PRINT" 

1070 PRINT"0+ 

1075 PRINT" 

1077 PRINT" 

1080 PRINT" 

1090 PRINT"0 
1100 PRINT" 

1110 PRINT" 

1120 PRINT" 

1130 PRINT" 

1140 PRINT" 

1150 PRINT" 

1160 PRINT" 

1170 PRINT: F'RINT: PRINT-'PRINT "PREMI ijn TASTO 


§ 




I 3JTR2" 
I 
I 
1 

I 

r 


I.. +0 
I 

I -0 


y\ 


I 


I 


anzi i 


I SCI" 


II 

II 

II 

II 

II 

II 

II 




I 


II 



II 


CONTINUARE" 



33 
























































1450 

1500 

1600 

1700 

1800 

1300 

2000 

2100 

2200 

2300 

2400 

2500 

2600 

2700 

3000 

3100 

3200 

3300 

3400 

3500 

3600 

3700 


GETQ$:IFQ$=""THEN1450 
PRI NT " IT’ : PRI NTCHR$ (14) 

PR I NT " a~T«=MAX POTENZA DISSIPATA DAL TR" 

PR I NT "-" 

PRINT" a--, I ■=C0RRENTE DI ERSE PER POLRRIZZRZIONE" 

PR I NT "-" 

PRINT" a/#5=VALORE DI TENSIONE DEL DIODO ZENER" 

PRINT"- " 

PRINT" 3%♦■^CORRENTE DI ZENER" 

PRINT"-" 

PRINT" 3-1 ^RESISTENZA DEL PRRTITORE" 

PRINT"-" 

PRINT"3~*5=POTENZA DELLO ZENER <WATT>" 

PRINT"-" 

PR I NT " St< ITNTENSI ONE ERSE EMETTI TORE " 

PR I NT "-" 

PRINT" 3h-SCORRENTE CHE RTTRRVERSR IL CRRICO" 

PR I NT "-" 

PRINT"St<—^TENSIONE INGRESSO " 

PR I NT "-" 

PRINT" 2t*.«=TENSIONE DI USCITA" 

PRINT"-" 


3800 PRINT:PRINT"PREMI UN TASTO - PER CONTINUARE" 

4000 GETQf •' IFQ$=" "THEN 4000 
4100 PRINT "ZI" 

4200 PRINT"########## DATI RICHIESTI 
4600 INPUT"TENS.E/E VOLT <VBE) = ".:VBE 
5000 PRINT 

5100 INPUT"CORR.CARICO RMP <IO = ";IC 
5500 PRINT 

5600 INPUT"TENS.ING.VOLT < VCC)=";VCC 
6000 PRINT 

6200 INPUT"TENS.OUT VOLT <VU>=";VU 
6300 PRINT 

6800 PD=< < VCC-VU > #IC > 

6900 PRINT : PRINT : PRINT : PRINTTRE<16>"tlI 
6910 PRINT"r3" 

7000 PRINT"- ELENCO COMPONENTI - 

7100 PRINT 

7300 PRINT"3HAX POT.DISSIPATA DA TR.1";PD;" WATT":PRINT 



"FORQ=ITO1000: NEXTQ 


II 




7700 IB=<IC/100) 

8000 PRINT" 2ICORR. BASE S";IB;" AMPER": PRINT 
8200 VZ=< VU-VBE> 

8500 PR I NT " SfTENS. ZENER ■" ; VZ ; " VOLT " : PR I NT 
8700 IZ=<IB#5> 

9000 PRINT"3CORR.ZENER 1";IZ;" AMPER":PRINT 
9200 R1 = INT(<VCC-VZ)/1Z> 

9500 PRINT"SPESIST. 1 !";R1;" OHM":F'RIHT 
9600 PZ=(VZ#IZ) 

9900 PRINT"SPOT.ZENER •"iPZi" WATT":PRINT 

10000 PRINT"SCOND.Cl=l";VCC#10;" MF ";VCC+10;" VL":PRINT 

10100 PRINT"aDOND.C2=i";VCC#100;" MF ";VCC+10;" VL ":PRINT 

10200 PR I NT : F'R I NT : I NPUT " VUOI FARE ALTRI CALCOLI < S/N > " j Q$ 

10300 IFQ$="S" THEN PRIHT"^":GOTO4200 

10400 END 


30 











































Non siamo al CASINÒ, ma questo programma vi da¬ 
rà la possibilità di giocare alla ROULETTE e sfidare 
la fortuna, senza rischiare di perdere ... la camicia. 
E perchè, magari, non elaborare anche un sistema 
per vincere al Tavolo Verde? 

MESSIEURS, FAITES VOS JEUX (Signori, fate il Vo¬ 
stro gioco): inserite la lettera corrispondente alla vo¬ 
stra giocata, quindi la somma puntata ... Arrivederci 
a Montecarlo! 


A = numero secco (3) 

B = due numeri a cavallo (8-9) 

C = trasversale di 3 numeri (10-11-12) 
D = trasversale di 6 numeri 
(25-26-27-28-29-30) 

E = quadrato di 4 numeri 
(20-21-23-24) 

F = numeri da 1 a 12 
G = numeri da 13 a 24 
H = numeri da 25 a 36 
I = numeri da 1 a 18 (MANQUE) 

J = numeri da 19 a 36 (PASSE) 

K = una colonna 

L = due colonne a cavallo 

M = rosso 

N = nero 

O = pari 

P = dispari 

Numeri 

ROSSI: 1 /3/5/7/9/12/14/16/18/19/21/23/2 

5/27/30/32/34/36 

Numeri 

NERI: 2/4/6/8/10/11/13/15/17/20/22/24/ 

26/28/29/31/33/35 





75 IF R=17 THEN 4000 

80 F0R Q=1 T0 24 : B < Q) =-93 '■ NEXT 

110 INPUT"MQURNTI CHIPS";N=IF N>CH THEN 110 


1 REM ROULETTE - EIJR0PER 

3 P0KE 36879,26 

5 PRINT"I3" : GOTO 20 

10 F0R K=1 T0 800 •’ NEXT : PRINT : RETURN 

20 DITI B<24) ; CH=100 

40 PRINT"RVETE"CH"CHIPS" 



130 

131 

132 


50 GOSUB 10 

60 PRINT"MESSIEURS, FRITES VOS JEUX" 

70 GET R$ : IF fl$=""THEN 70 

72 fi=RSC<flf)-64 : IF R<1 OR R>17 THEN 70 


CH=CH-N 

IF R=1 THEN GOSUB 2600 
IF R=2 THEN GOSUB 2640 
IF R=3 THEN GOSUB 2680 


« 






_ 
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133 IF A=4 THEN GOSUB 2720 

134 IF A=5 THEN GOSUB 2760 

135 IF A=6 THEN GOSUB 2300 

136 IF A=7 THEN GOSUB 2840 

137 IF R=8 THEN GOSUB 2380 
133 IF A=9 THEN GOSUB 2920 

139 IF R=10 THEN GOSUB 2960 

140 IF R=11 THEN GOSUB 3000 

141 IF R=12 THEN GOSUB 3040 

142 IF R=13 THEN GOSUB 3080 

143 IF R=14 THEN GOSUB 3120 

144 IF R=15 THEN GOSUB 3160 

145 IF A=16 THEN GOSUB 3200 
150 GOSUB 10 

160 PRINT"LR RUOTR GIRA":GOSUB 10 
170 GOSUB 10 : PRINT'Tl" 

130 FOR B=1 TO 75 ■' C=INT<RND<0)*37) : PRINT"HBKW"C : FOR T=1 TO 3#B 

135 NEXT:GOSUB 5000:NEXT 

190 GOSUB 10 : PRINT"IL NUMERO E'"C 

240 V=0:E=1 

250 IF B(E)=C THEN V=i:GOTO 270 
260 IF E<24 THEN E=E+l=GOTO 250 
270 IF V=0 THEN 370 
290 WI=OD*N:CH=CH+UI 

310 PRINT"CQNGRRTULRZIONI! ! ! RVETE VINTO"WI"CHIPS" 

320 CH=CH+WI 
330 GOSUB 10 
350 GOSUB 400 
360 GOTO 40 

370 PRINT"RVETE PERSO":GOTO 330 
400 IF CH-C1 THEN PRINT "NON AVETE PIU' CHIPS": END 
410 IF CH>1100 THEN PRINT"IL BANCO CADE!":END 
420 RETURN 

2600 INPUT"«QUALE NUMERO?";D:B<1)=D:0D=35: RETURN 
2640 INPUT"«QUALE COPPIA?" ; B< 1 >, B<2) : 0D=17 : RETURN 
2680 PRINT"«QUALE NUMERO"=INPUT" DELLA COLONNA SIN.";D 
2690 FOR E =0 TO 2 : B(E+1)=D+E : NEXT : OD=11 : RETURN 

2720 INPUT")SPRIMO NUMERO DI SEI";D:FOR E=0 TO 5 :B<E+1>=D+E:NEXT:0D*5: RETURN 
2760 INPUT"IMO NUMERO DI QUATTRO";D:FOR E=0 TO 3 : B<E+1>=D+E : IF E=2 THEN D»D+1 


2770 

2800 

2840 

2830 

2920 

2960 

3000 

3010 

3050 


NEXT:0B=8: RETURN 

FOR E=1 TO 12:B<E)=E:NEXT:0D=2:RETURN 

FOR E=1 TO 12 :B<E)=E+12:NEXT:0D=2:RETURN 

FOR E=1 TO 12 :B<E)=E+24:NEXT:0D=2:RETURN 

FOR E=1 TO 18:B<E)=E:NEXT:0D=1: RETURN 

FOR E=1 TO 8:B(E)=E+13 'NEXT:0D=1: RETURN 

PRINT"XNUM.PIU'BASSO A FINE":INPUT"LINEA";D 

FOR E=0 TO 11:B<E+1>=3#E+D:NEXT:0D=2:RETURN 

FOR E=0 TO 11 : B(E+1> =3*E+D1 : B<E+13> =3*E+D2 : NEXT : OD».5 : RETURN 


3080 

3090 

3120 

3160 

3200 

3210 

3220 

4000 

4010 

5000 

5010 

5020 


RESTORE 

FOR E=1 TO 18 = READ B<E>:NEXT:0D=1: RETURN 

RESTORE-FOR E=1 TO 18:READ Z:NEXT:FOR E=1 TO 18 = READ B<E):NEXT:0D=1: RETURN 
FOR E=2 TO 36 STEP 2 : B(E/2)=E : NEXT:0D=1 : RETURN 
FOR E=1 TO 35 STEP 2 : B< <E+1 >/2!>=E : NEXT : 0D=1 : RETURN 
DATA \,2,Z,7,3, 12,14,16,18,19,21,23,25,27,30,32,34,36 


DATA 2,4,6,8,10,11,13,15,17,20,22,24,26,23,29,31,33,35 
PRINT'" mSU I RITIRATE CON "CH"CHIPS" 


END 

POKE 36878,5 

POKE 36877,130+B:POKE 36875,130+B 
POKE 36878,0:POKE 36877,0:POKE 36375,0 


5030 RETURN 


























Due tipi di navi aliene stanno attaccando la terra: do¬ 
vete difendervi! 

Per muovere il nostro laser a destra e a sinistra usate 
rispettivamente i tasti 8 e 5, per fare fuoco il tasto 7. 
Il gioco termina quando avrete distrutto tutte le navi 
nemiche o se una di queste riesce ad arrivare al limite 
X segnato sulla sinistra dello schermo. 



# 





Struttura programma 


Linee 



10 definizione carattere grafico primo alieno 
100 definizione carattere grafico lancia missili 
200 definizione carattere grafico secondo alieno 
300 definizione carattere grafico esplosione 
400 variabile e colori di fondo 
500 iniz. stringhe 
1000 stampa alieni 

1100 stampa e movimento lancia missili 

1400 lancio missili 

7000 eliminazione alieno colpito 

7900 esplosione, suono e aggiornamento nuovo punteggio 


Per ottenere i caratteri grafici-definiti dall’utente nei 
blocchi di linee 10,100,200,300 - dovete entrare nel 
mondo grafico (GRHAPHICS) e digitare: 
linea 500 “i” 

linea 510 "j” • 

linea 1130 "u" 

linea 1200 “u” A 

linea 7910 “k” • 
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« 

f 

# 

< 

« 


« 


s 

REM 

INURDER 

«. a 


10 

POKE 

USR 

" j 


00011000 


POKE 

U5R 

” i 

” 42 ,BIN 

01111110 

30 

POKE 

U5R 


* * 42 , BI hi 

01111110 

40 

POKE 

USR 

” i 

” 4 3 BIM 

limili 

50 

POKE 

USR 

”i 

”44.SIN 

11000011 

60 

POKE 

USR 

” i 

”45,BIN 

11000011 

70 

POKE 

USR 

”i 

” 46 ,BIN 

01100110 

50 

POKE 

USR 

”i 

” 47,BIM 

00100100 

100 

POKE 

USR 

”u 

”40., BIN 

00011000 

110 

POKE 

USR 

” U 

”41,BIN 

00011000 

120 

POKE 

USR 

”o 

”42,BIN 

00011000 

13© 

POKE 

USR 

”u 

”43,BIN 

00111100 

140 

POKE 

USR 

”u 

”44.BIN 

01 11 111 U 

150 

POKE 

USR 

”L» 

”45,BIN 

01111110 

160 

POKE 

USR 

”U 

”46,BIN 

umili 

170 

POKE 

USR 

”L* 

”47 % BIN 

mimi 

200 

POKE 

USR 

" J 

”40,BIN 

00011000 

210 

POKE 

USR 

" J 

” 4I,B IN 

00111100 

220 

POKE 

USR 

" J 

”42,BIN 

01111110 

230 

POKE 

USR 


”43.BJN 

mimi 

240 

POKE 

USR 

11 J 

”44,BIN 

00111100 

250 

POKE 

USR 

" J 

”45,BIN 

01100110 

260 

POKE 

USR 

"J 

”46,BIN 

11000011 

270 

POKE 

USR 

" J 

”47,BIN 

01100110 

300 

POKE 

USR 

”R 

”40,BIN 

00101000 

310 

POKE 

USR 


”41,BJN 

10001000 

320 

POKE 

USR 

”X 

”42,BIN 

10010001 

330 

POKE 

USR 


”43,BIN 

00101000 

340 

POKE 

USR 

”fc 

”44,BIN 

00011100 

350 

POKE 

USR 

” K 

”45,BIN 

00110100 

360 

POKE 

USR 

”.t 

”46,BIN 

J 0100J 00 

370 

POKE 

USR 


”47,BIN 

10100100 

400 

LET 

y =i 




420 

LET 

X 1 =10 



430 

LET 

XJ» =0 




440 

LET 

t =0 




450 

LET 

S =0 




460 

PAPER 5; 

INK 0 


500 

• 9 

LET 

a$ = " 


510 

LET 

b* = ” 

A 

A A A A 

A A A A 

ft" 






520 

LET 

C$=3$ 



540 

LET 

d* = b* 



550 

LET 




f # 

: REM 20 

t spali 



1000 

REH 

s t aiftp a 

alieni 


1010 

CLS 





1020 

INK 

6 





1030 PRINT RT y,l c$ 

104-0 XNK 2 

1050 PRINT RT y42,l;b$;BT ^46,1; 

d* 

1050 GO TG 5000 

1100 REM 5 td»pd/lovio»ento cannon 
e 

1110 INK 4 

1120 LET t*til 

1130 PRXNT RT 21 / Xt; ,l i" 

1150 LET <.$=XNKffY* 

1150 IP l *■”” THCN RETURN 
1170 PRXNT RT 21 ,.V J ; #l ” 

1150 IP l$=”5” RND Xi.M T.MF.M liT 
Xl=Xl-1 

1190 XF l*=”B” .RND .Vi <.20 T.HEN JLf 
T Xl=XUl 

1200 PRINT RT 21/Xl;"!" 

14-10 XNK 5 

14-20 XP l*<>”7” THEN RETURN 

14-30 POR »=19 TO U+® STEP -1 

14-40 PRINT RT M , X l ; ” * ” ; RT »+l # X\ 
• •• •• 

1450 NEXT » 

1460 PRINT RT »4l,Xl;” ” 

1510 LET f =0 

1520 LET Q|sd$; LET 1=5 

1530 GO SUB 7000 

1540 LET d*^U 

1550 IP f=I THEN GO TO 1670 
1566 PRINT RT y 45 / Xl;"#"; RT y*4, 
x l RT y+et,.>rt;" ”;RT v^,xl;. M 

1560 LET q$«C$: LET r-4 


1570 GO SUB 7000 
1550 LET <:$=<*$ 

1590 IP f =1 THEN GO TO 1670 
1595 PRINT RT V 43 / X i ; ” . ” ; RT y-43, 

x l ; •'. M ; RT y 42 ,.v l ; ” * ” ; RT y+2*.v I ; u 

1 1 

1600 LET q*=fa*: LET r *2 
1610 GO SUB 7000 
1820 LET b*=q* 

1630 IF f*l THEN GO TO IB7B < 

1635 PRINT RT y + i ,X l RT y*i , 

x i; " ** ; RT y,xl;” * 

164-0 LET LET r *6 

1650 GO SUB 7000 

1660 LET a *=q* * ., . _ 

1670 IF s«at| ANO h»«t* 00 1 t$«t 
* RND d*=e* THEN GO TO 0000 
1690 IF q|et$ THEN LET y«y+2.- RA 
INT RT y-2,l;e* 

1700 GO TO 1100 

7000 REH ridefinìziont strinfM 
7010 IF q*»xti*" ~ THEN AETTJRN 
7020 LET q«sq*fl TO'» l-1.» **»q*L, 

(X l+l TO > 

7030 LET f =1 
7520 LET £s>S+10-V 
7530 LET q*=FN »* fq*-> 

754-0 GO SUB 7900 
7600 RETURN 
7900 FOR TO » 

7910 PRINT INK 0; OVER liRT y + f , 

X l ; "fr" 

7920 BEEP .01,-5 
7930 NEXT » 

794-0 PRINT INK 0;RT 10,25; "PUBti 

«I 

7950 *PRINT INK O; RT 11,26;&V 
• • 


7960 LET tat-1 
7970 RETURN 

6000 REM loop Principal* 

8010 PRINT «T Ì4.,0i~X~ 

6020 IF t > 30 +INT fRND» 15.' THEN L 
ET y=y+2: LET t=0: PRINT RT V-2, 

l; e* 

3030 LET a*=FN a» la»! 

804-0 PRINT RT y,l; INK Sia* 

604-S BEEP ,17-tf,'100,-10.- GO SHB 
1100 

3050 LET b*=FN »*<b*> 

8060 PRINT RT y+2,1; INK 2;S* 

8065 BEEP . 17-y.**100». -J4.- OO SUB 


1100 

3070 LET C*=FN »*fc*.' 

3080 PRINT RT y+4-,1; INK SiC* 
8085 BEEP .17-yyl00,-10/ GO SUB 
1100 

3890 LET d $=FN »*<d*.' 

8100 PRINT RT y»S,l; INK 2;d| 
3105 BEEP ,17-V/10à',-14.- SO SUB 
1100 

8110 IF y >3 RND d*oe* THEN GO T 
O 3500 

3120 IF y > 10 RND C toc* THEN GO 
TO 8500 

3130 IF y>12 RND 6»-oe* THEN GO 
TO 8500 

814 0 IF y > 14- THEN GO TO SSDB 


3150 LET t=t+l 
8130 GO TO 8000 

3500 PRINT INK O;RT 13,1;"Ti h«n 
no preso ! ! !" 

3520 GO TO 9020 

9300 REH nessun al iene ri aac-to 
9010 PRINT INK 0;AT 20,1;"BRAMO? 
La terra e'salvs!!!"; 

9820 input "Vuoi giocare ancora*? 
i s/n)";z* 

9030 IF 2 * »* 1.» THEN Ri»* 

984-0 INK 0; PAPER S 
9058 STOP 

9500 DEF FN l ut iq») =q»(2 TO ) +q* 


11 ) 




















✓ 



La vostra piccola navicella spaziale si trova in mez¬ 
zo ad un gruppo di asteroidi. 

A causa di una collisione i soli comandi funzionanti 
a vostra disposizione sono quelli per la manovra a 
destra e a sinistra. 

Dovete dunque cercare di evitare una nuova colli¬ 
sione che vi sarebbe fatale. 

Usate i tasti cursore 5 e 8. 

Alla fine del gioco vengono visualizzati il vostro pun¬ 
teggio ed i 3 TOP. 


STRUTTURA PROGRAMMA 
Linee 


1 


20-40 


500 


600-610 

620 

630-640 

2000-2010 

2100-2240 

5000-5010 

6000 

7000-7030 

7040 

7050 

9000-9050 


tre diversi tipi di asteroidi determinati 
dalla grafica definita dall’utente 
stampa di uno o due asteroidi (in 
funzione del tempo trascorso dall’i¬ 
nizio del gioco) 

movimento navicella. Test di verifi¬ 
ca se colpita 
SCROLL del video 
stampa navicella (effetto FLASH) e 
ripetizione del LOOP principale 
esplosione. Effetto determinato dal¬ 
la grafica definita dall’utente, 
punteggio giocatore e confronto con 
i TOP. Nuova partita 
RESET. Posizione navicella per nuo¬ 
vo gioco 

definizione navicella, esplosione, 
asteroidi 

REGOLE del gioco, date solo all'i¬ 
nizio della prima partita 
definizione schermo di fondo 
hi, h2, h3 - punteggi TOP 
DATA per la grafica definita dall’u¬ 
tente (navicella, asteroidi, 
esplosione) 
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A 


M 

f 




W 


1 REM 

2 REM 

3 REM 

4 REM 

5 REM 

6 REM 

7 REM 

8 REM 

9 REM 
10 GO TO 6000 

20 PRINT FLASH (lgo>125) AND R 
ND<.5) ; BRIGHT 1 ; RT 21,3, CHRt 14- 
S: RETURN 

30 PRINT BRIGHT 1; RT £l,a,'CHR$ 
149;CHR* 150: RETURN 
4-0 PRINT INK 4-; BRIGHT 1; RT 20 
,a;CHR$ 151; INK 6; CHR* 153;RT 2 
1 , a ; CHR* 152; INK 4.; CHR* 154.. RE 
rURN 

500 INK 4 — (RND < . 5 AND go>100)*3 
OUER 1: FOR f=l TO l+tgo>100): 
LET a =INT (RND *30) : GO SUB 20 + 1 
NT (RND *(2+(go>50> ) ) +10: IF RND< 

.8 THEN NEXT f 

600 OUER 0: LET go=gO+l: LET X = 

X + ( INKEY* = ”8'* ) -(INKEY*="5") + (X <1 
I ) — (x >28) : E£EP .@«5,®-. DEEP .®®4 

t 4-0 

610 IF RTTR (12,X)>10 OR RTTR ( 
12,X +1) >10 OR RTTR C12,x+2) >10 T 
HEN GO TO 2000 - 1 

620 POKE 23692,255: PRINT RT 21 

, 0 ' ' I 


*********************** 
* * 

* RSTEROIDI * 

* * 
*********************** 




630 PRINT RT 9,X ; " INK 5; 

RT 10,X -1; •• FLRSH 1 ; CHR * 14-4. 

; FLRSH 0;" *•; FLRSH 1 ; INK 2; R 

T 11 , X ; CHR* 14-6; FLRSH 0; CHR* 1-4 
5; FLRSH 1; CHR* 14-7 
64.0 GO TO 500 

2000 FOR f=7 TO 0 STEP -1: BEEP 
3L f 

20Ì0 INK f : PRINT RT 11,X+1;CHR* 
155: BEEP .01,-20: FOR g=l TO 3 
: PRINT RT 9+g,x;CHR* 155;CHR* 1 
55;CHR* 15S;CHR* 155: NEXT g: NE 
XT f 

2100 INK 7: PRPER 2: PRINT RT 4-, 
5;“DISTRUTTO";RT 6,5;“PUNTEGGIO 
"; go 

2110 IF go>h2 THEN LET K3=h2 
2120 IF go >h1 THEN LET h2=hl; LE 

T h 1 =9 O 

2130 IF go <h1 RND go>H2 THEN LET 
H2=go 

214-0 IF 90 (h 2 RND go>h3 THEN LET 
h3=go 

2200 PRINT RT 8,5;"PUNTEGGIO MRX 
.= “;hl;RT 10,5;" Il Punteggio = 
";h2;RT 12,5;"III Punteggio = " 

2210 PRINT RT 20,5;"Continui?(s/ 
n» " 

2220 IF INKEY*="S" THEN GO TO 50 
00 ^ 

2230 IF, lNKEY* = "n " THEN PRPER 7: 

BORDER 7: INK 0: STOP 
224.0 GO TO ' 2220 

500? RRNDOMIZE : LET X=15: LET g 
0=0: PRPER 0: CLS 

5010 PRINT RT 10,x+l;CHR$ 14-4-;RT 
11,X; CHR* 14-6; CHR* 145; CHR* 147 
5020 GO TO 500 

6000 FOR f=0 TO 11: FOR g=0 TO 7 
RERD a: POKE USR CHR* ( 144 + fì + 

g,a ; NEXT g : NEXT f_ 

7000 PRINT " 

”In gues to gioco devi evitare 
gliasteroidi che vengono contro 
la 


9000 DRTR 0,42,28,42,8,126,66.25 
5,255,255,60,60,255,255,66,0 
9010 DRTR 3,31,115,243,127,31,1, 
1,192,248,206,207,254,248,128,12 
8 

9020 DRTR 24,62,93,127,218,108,2 
4,0,14,123,220,183,189,238,121,3 
1,156,118,218,45,253,86,248.128 
9038 DRTR 0,5,31,53,105,121,95,2 
54- , 255,215,54-, 27,30,15,1,0 
904-0 DRTR 0, 128,224,184,204.115, 
106,215,253,61,166,124,2*.118,21 
6,176 

9050 DPTR 16,130,40,17,40,130,16 
, 66 


7010 PRINT "tua astronave." 

7020 PRINT RT 8,15;CHR$ 144;RT 9 
,14;CHR$ 146;CHR$ 145;CHR$ 147 

7030 PRINT '"Per Muoverti devi p 
re Me re 8=destra e 5=sinist 

ra .PreMi ENTER per iniziare" 

7040 PRUSE 0: PRPER 0: BORDER 0; 
INK 0: CLS 

7050 LET h1=0 : LET h2=0: LET h3 = 
0; GO TO 5000 
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Siete collegati, tramite un modem, ad una banca in¬ 
ternazionale: cosa ne direste di prelevare qualche 
miliardo e trasferirlo sul vostro conto personale? 
Attenzione però: al minimo errore il computer della 
banca si accorgerà di voi ... e allora saranno guai! 


Il gioco si articola nele seguenti fasi: 


1 — chiamata del codice bancario 

2 — prelievo 

3 — chiusura codice 

4 — trasferimento sul proprio conto. 


SPEEQ= 100 

§ 

HOME • PRINT “UOI CON IL MOSTRO MP 
F II /COLLEGATO AD UN" : PRINT "M00 
EH .• MOLE TE MODIFICARE IN MOSTRO FA 
MORE" PRINT ", ALCUNI CONTI. 1 ': rrin 

PRINT " ATTENZIONE PERO ' :: PRINT 
= PRINT 




























































































































I NT 

• 40 



# 


51 

69 

70 

60 




180 


110 

120 
£ INT 
130 




140 


150 
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PRIHT " IH ChSO DI ERRORE IL COMPII 
TER DELLA "• PRIHT “ BANCA SE HE 
ACCORGERÀ' E ALLORA..."= PRIHT = PR 
“ GLI ERRORI POSSOHO ESSERE= " 

PRIHT ^ PRIHT COHTO IHESISTEHTE 
•'= PRIHT CODICE DI PRELIEUO ER 
RATO" =' PRIHT PAROLA D'QROINE £ 
RRATA" PRIHT CHIUSURA 0 hPERT 
URA ERRATA" 

PRIHT ERRORI DI SIHTASSI 0 UaRI 


SPEED= 255 

FOR A = 0 TO 100OO : NEXT : HOME 
IHUERSE = PRIHT " HAT IOHAL BAHK = 
OPERATILE SYSTEM READY." 

HGRMAL = Al = IHT < PHD < 1 > * 9999 
) = PRIHT = INPUT "CODICE DI APERT 
URA ";hAI 

IF AAl > Al THEH GOTO 9999= IF AA 
1 < Al THEH 100= HOME 


PRIHT "OK 
" = PRIHT 


"= PRIHT "SYSTEM READY 
PRIHT 


tl 


-PRIHT 

= INPUT "CONTO N' ";C 
CI = INT < RHO <1> t 100000 ) = C2 = 
IHT < RHD <1> * 100000) 

HOME = PRIHT "BANCA NAZIONALE "= PR 
= PRIHT "CONTO N* " ;C 
PRIHT = PRIHT “- 


«I 


PRIHT "C 

API TALE ATTIMO " ;C 1 ; " *"= PRIHT • 
PRIHT "CAPITALE PASSIVO ";C2;“ $ 
PRIHT = PRIHT "- 


II 


T = CI - C2= PRIHT = PRIHT "TOTALE 
";T;" *"= PRIHT = PRIHT "- 


"= PRIHT = INPUT "PRELIEUO (S-'H) 

A* 

IF A$ = "H" THEH GOTO 100 


160 IF A* = "S" THEH GOTO-200 
200 HOME = C3 = IHT < RHD <1> * 10) 

210 INPUT "CODICE DI PRELIEUO ";AA3 

220 IF AA3 > C3 THEH GOTO 9999 

230 IF AA3 < C3 THEH HOME = GOTO 300 

300 PRIHT “CAPITALE PRELEUATO ";T=X = 

X + T= PRIHT "CAPITALE POSSEDUTO 
" ; X : PRIHT = INPUT "STOP < S'H ) “j 
W*= IF W$ < > "S“ THEH 500= IF W 

* = "S" THEH HOME = GOTO 100 
500 HOME = CCH = INT ( RHD C1 ) # 3)= IH 
PUT "CODICE DI CHIUSURA ";CCH1= IF CCH 
1 > CCH THEH GOTO 9999= IF CCH1 < 
CCH THEH GOTO 600 

600 HOME = PRIHT "TOTALE PRELEUATO " .= 
X;“ DEPOSITATO NEL "= PRIHT "UOST 
RO CONTO."= END 

9999 HOME = PRIHT ThBC 10)= SPEED= 1 
00= PRIHT " WARHING !!! ”= HORMAL 


10000 PRIHT = PRIHT "AUETE ILLEGALMEH 



TE PRELEUATO 

DEL DENARO" : 

INPUT 


FORNITE IMMEDIATAMENTE 

IL 

U OSTRO 


CODICE M i DF : 

HOME 




1 00 1 0 

Z * INT < 

RND <l> 

* 

2 > : 

INPUT 


1 ' CODICE D ‘ 

ORDINE " 

: ZX1 * 

IF ZX1 

Z THEN 20000 





10011 

IF ZX1 < 

= Z THEN 


GOTO 

10012 

10012 

e = int <: 

RND C1> 

* 

2 > * 

INPUT 


2 1 CODICE D * 

ORDINE " 

; Z 

X 2 : 

IF ZX2 


B THEH 20000= IF ZX2 < = B THEH 100 


20000 HOME = PRIHT "AUETE INFRANTO IL 
LEGALMENTE II SISTEMA";= PRIHT "0 
PEPATIUO DELLA BANCA="= PRIHT = FRI 
NT “SIAMO COSTRETTI hD AUUERTIRE IL PI 
U‘ ";= PRIHT “MICINO POSTO DI POL 
IZIA.“= PRIHT = PRIHT "- 


































































Non vi è aspetto della vita moderna che non sia og¬ 
getto di indagine statistica. 

Questo semplice quanto utile programma offre, per 
l’appunto, la possibilità di visualizzare l’andamento 
statistico di un qualsiasi fenomeno analizzato in un 
arco di tempo di 12 mesi. 





STRUTTURA PROGRAMMA 

60 dimensionamento dei dati 
70 - 110 immissione dei dati mensili 
190 - 220 ricerca del valore massimo dei 

dati inseriti 

240 Parametro utilizzato per il disegno 
270 - 330 disegno degli istogrammi 
350 - 420 DATA di utilizzo 


VARIABILI 

A$ = mesi (gennaio, febbraio, ...) 

T$ = intestazione tebella 
G (B) e G (C) = dati in ingresso 
N = parametro utilizzato per il disegno 



# 


39 
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10 REM 

20 REM ** ** 

30 REM ** ISTOGRAMMI 1984 M 

35 REM ttft M 

40 REM ########!###*##*######*# 

50 HOME 
60 DIM G<12> 

70 PRINT : PRINT "INSERISCI I DATI MENSILI" 

80 FOR 8=1 TO 12 
90 READ A$ 

100 PRINT A*: INPUT G<A> 

110 NEXT A 
120 HOME 
130 RESTORE 
140 FOR B=1 TO 12 
150 READ A* 

160 PRINT A$, G<B) 

170 NEXT B 

180 PRINT-' PRINT: PRINT " CHE NOME VUOI DARE ALLA TABELLA": INPUT T$ 
190 M=G<1) 



200 FOR G=1 TO 12 

210 IF G<C» M THEN M=G<C) 

220 NEXT C 
230 HOME 
240 N=37/M 
250 GR 
260 READ A$ 

270 PRINT TAB <<39 - LEN<T$V2>>;T$ 

280 HTAB 3= VTAB 20 = PRINT A$ 

290 FOR D= 2 TO 25 
300 COLOR D/2 
310 READ A 

320 VLIN <37 - N#G<D/2>),37 AT A 
330 NEXT D 
340 END 

350 DATA GENNAIO, FEBBRAIO, MARZO 

360 DATA APRILE, MAGGIO, GIUGNO 

370 DATA LUGLIO, AGOSTO, SETTEMBRE 

380 DATA OTTOBRE, NOVEMBRE, DICEMBRE 

390 DATA GE.FE.MA.AP.MG.Gl.LU.AG.SE.OT.NO.DI 

400 DATA 2,3,5,6,8,9,11,12,14,15 

410 DATA 17,18,20,21,23,24,26,27 

420 DATA 29,30,32,33,35,36 




















••• 
••• 
• •• 

• •• 
• •• 


:::::: ::: 
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Una simpatica utility per abbellire i vostri program-, 
mi. Inserite ad esempio il vostro nome (e comunque 
non più di 30 caratteri). 

Magicamente vedrete le lettere che lo compongono 
arrivare da ogni direzione e riunirsi al centro dello 
schermo riformando il nome. 



' 


1 REM *********************** 

2 REM * .* 

3 REM * LOGO * 

4- REM * » 

5 REM *********************** 

6 REM 

7 REM 

8 PAPER 0: SORGER 0; CLS 

9 PRINT XNK 7; RT 10,3; "INSERÌ 
TE MRX.30 CARATTERI” 

10 PAUSE 200: CLS : LET k =0 
20 INPUT a * 

30 IF LEN a*>30 THEN GO TO 10 
4-0 LET X =INT (31-LEN a *>,'2 
50 FOR 1=1 TO LEN a* 

S0 LET g=INT (RND*7> *30*120 
70 IF Cx +1 >20 ANO 9 >200) OR (X 
4-1 <10 AND 9>200) THEN GO TO 60 
80 GO SUB 9 

90 BEEP .l*(l=LEN a*)*2,9x10 
100 NEXT l: CLS ; GO TO 350 

109 REM 

110 REM ****Subrout i nes**** 

115 REM *NORD* 

120 FOR n =1 TO 10 

130 PRINT XNK 7;AT n , x +1 ; a * ( l.( ; 
AT n -1, x * l ; ” ” 

14-0 NEXT n: RETURN 

145 REM *SUD» 

150 FOR n=20 TO 10 STEP -1 
160 PRINT INK 6;AT n,x*l;a*(l); 


AT n *1, x ♦ l ; ” ” 

170 NEXT n: RETURN 
175 REM *EST * 

180 FOR n=30 TO X * t STEP -1 
190 PRINT INK 5;AT 10,n; a*(lJ+” 

200 NEXT r>; RETURN 
205 REM *SUD-QUEST* 

210 FOR n =20 TO 10 STEP -1: REM 
SU 

220 PRINT INK 4;AT n,x*l*l0-n;a 
*ll);AT n *1, x +1+9-n ; ” ” 

230 NEXT n: RETURN 

235 REM *NORD—QUEST* 

240 FOR n=l TO 10 

250 PRINT INK 5;AT n,x*l-10*n;a 
*(l);AT n-l,x + l-n*n; “ •• 

260 NEXT n: RETURN 
265 REM *SUD—EST * 

270 FOR n =20 TO 10 STEP -1 
280 PRINT INK 6;AT n,x*l-10*n;a 
*(l);AT n+l,x + l-9+n;— ** 

290 NEXT n: RETURN 
295 REM *NORD-EST* 

300 FOR n =1 TO 10 

310 PRINT INK 7;AT n ,x * l *l0-rt ; a 
*(l);AT n-l,x + t+H-n; " ** 

320 NEXT n: RETURN 
350 LET K =k +1 
360 IF k=3 THEN GO TO 1 
370 GO TO 50 





























Siamo sicuri che anche i più validi sciatori, incontre¬ 
ranno qualche difficoltà nel completare questo 
SLALOM. 

Il punteggio varia a seconda della «pista» seguita e 
degli ostacoli che si riescono a superare. 

Fate attenzione a non colpire gli alberi e alle lastre 
di ghiaccio. 


Comandi: «Z» = sinistra ; «M» = destra 
Buona discesa! 

Variabili : 


D = 

direzione sciatore: 0 = sinistra; 

1 = dritto; 2 = destra 

SL = 

lunghezza del percorso effettuato 

S = 

punteggio 

X = 

posizione sciatore 

PE = 

tasto premuto 

XI = 

posizione albero 

T = 

num. degli alberi 


Struttura del programma 
Linee 


0-6 

inizializzazione 

10 

il percorso è stato completato? 

12 

sinistra? 

14 

destra? 

17-18 

cambia posizione sciatore 

19 

colpito qualcosa? 

20-80 

stampa e «muove» alberi 

100 

finish 

101-108 

verifica cosa è stato colpito 

200-220 

routine suono 

300-310 

stampa routine traguardo 

500-540 

routine finale e salti sciatori 

550-580 

richiesta nuova partita 

1000-1050 

salto della porta 

9000-10040 

DATA 


« 4 ? 

























Il 


I SRAAAAAAi I " 


0 P0KE55.. 255 : P0KE56.. 47 : P0KE53281, 15 : POKE53280, 15 : PRIHT " 3" 

1 D=1=X=140 :V=53248:SL=0: 8=0 :POKEV+21,1 

2 POKE2040,193 : POKEV+39, 2 :FQRI=0TO318 :RERDQ : POKE12283+I,Q:NEXT 

3 POKE54278.. 0 : P0KE54276, 0 : PGKE54273, 0 : P0KE54272,0 

4 P0KE54296,10: P0KE54278', 240 : P0KE54276, 129 

5 FORI = 12800TO12871 :READA:POKEI, R:NEXT:POKEV+24,28 : FORI =12544T012551 

6 POKE 1,0: NEXT : POKEV, X : POKEV+1,60 •' Z=PEEK < V+31 > 

10 S=S+1 : SL=SL+1 : PR I NT " : IF SL=220 THEN 1000 

11 P0KE54273.. 0 : PE=F'EEK< 197> ; IF SL=180THEN GOSUE 300 

12 IF PE=12RND D>0THEND=D-1 : POKE2040, 192+D : P0KE54273.. 100 

14 IF PE=36 RND DC2THEN D=Ii+l : POKE2040, 192+D : P0KE54273,100 

15 IF X<45THEND= 1 : X=45 : POKE2040, 192+D : GOTO 18 

16 IF X>239THEND=1 :X=239:POKE2040,192+D : GOTO18 

17 x=x+c:d-i>.*3 

18 POKEV,X 

19 IF PEEKXV+31>=1 THEN 100 

20 IF RND < IX. 7RND T=0RHD SL< 175THENT = 1 : X1 = I NT < RND ( 1 > *30 > 

25 IF PE=120R PE=36THEN POKE54273,0 

30 IF RND(1X.1 RND T=0 RND SL< 175THEN PRINT TRE< INT<f?ND< 1 >*30> > ; 

31 IF RND<1X.1RND T=0RMD SL<175THEH PRINT TRE(INT<RND <1> *30 > >;"": GOTO10 
40 IF T=0THENPRINT : GOTO10 

50 IFT=1THEHPRINT TRECXl > ; "*Mr" : T=2 : GOTO10 
60 IF T=2THEN PRIHT TRE<X1 > "Wi—~l M : T=3 : GOTO10 

70 IF T=3THEN PRINT TRB<Xl)"«i-":T=4GOTO10 

80 IF T=4 THEN PRINT TRB<X1>"M I":T=0: GOTO10 

100 IF SL>197 THEN 500 

101 IFPEEK<1104+< X-20>/8> = 1ORPEEK<1405+ <X-20 >/8> = 1THEN GOTO 20 

102 IFPEEK <1106+(X-20 >/8)=1 THEN GOTO 20 

103 IFPEEK<1144+ <X-20>/8 > = 1ORPEEK <1145+(X-20>/8 > = 1 THEN GOTO 200 

104 IFPEEK <1146+ < X-20> /8> = 1 THEN GOTO 200 

105 IFPEEK <1064+<X-20>X8 > = 1ORPEEK(1065+<X-20 >/8 ) = 1THEN GOTO 20 

106 IFPEEK<1066+<X-20>/8>=l THEN GOTO 20 

107 IFPEEK<1024+<X-20>/8 > = 1ORPEEK <1025+ <X-20>/8> = 1 THEN GOTO 20 

108 IFPEEKa826+<X-20>/8>=l THEN GOTO200 
110 P0KE54296,15 

115 POKE2040,196 :FORI=60TO170 :P0KE54273,175-1 :POKEV+1,I :NEXT 

116 P0KE54273, 1 

120 POKE2040,195 

130 FORI=1TO700:NEXT:P0KE54273,0 

140 POKEV,0 :POKEV+1,0 = POKE53280,0 :P0KE53281,0:POKEV+24,20 
150 PR I NT " riSOHE SFORTUNA ! SE I CADUTO!" 

160 PR I NT " WtìMPkHR I PASSATO s|" I NT < SL/2> ; " ® DEL PERCORSO " 

170 FRINT"SURI OTTENUTO "INT<S/4>"PUNTI" 

130 Gl ITO 55ti 

200 S=S*2:P0KE54296,15 : P0KE54276,0 :P0KE54276,33 :FORI=20 TO50:P0KE54273,1 :NEXT 
210 P0KE54296,15:P0KE54276,0 :PQKE54276,129:P0KE54273,0 
220 GOTO 20 

300 pr i nt " -snamsr " 

310 RETURN 

500 P0KE54273,10: POKE2840,193: FOR I = 1T05 : FOR J* 1TO20STEP1 : FORZ= 1TO20 •' NEXT 

510 POKEV+1,50+J : NEXTJ:FORJ=20TO1STEP-1 :FORZ=1TO20:NEXT:POKEV+1,50+J:NEXTJ,I 

515 FORI = 1TO240STEP5:P0KE54273,I :NEXT:P0KE54273,0 

520 POKEV,0 :POKEV+1,0:POKE53280,0 :P0KE53281,0:POKEV+24,20 

530 PRINT'TWAI COMPLETATO IL PERCORSO!!" 

540 PRINT"MS^HRI OTTENUTO W”;INT<S/4>;"» PUNTI" 

550 PRINT"WWÌTVUOI GIOCARE ANCORA?" 

560 GETRT: IFR$="S"THENRUH 
570 IF A$0"N"THEN 560 
575 PRINT"MCISCIRÒ! ! ! " 

580 END 
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« 


■ 
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t 


« 


# 


1000 F0RI=1T0240:P0KE54273,I :NEXT:P0KE54273,0:POKE53230,0:P0KE53281,0 
1010 PQKEV, 0 : POKEV+1,0: POKEV+24,20 : PRI NT " riHA Hfi ! " 

1020 PRINT"flkNON HAI PASSATO L'ULTIMA PORTA!!!" 

1030 PR I NT " .USSEI SFORTUNATO!!" 

1040 PRIHT"WHAI OTTENUTO ";S;" PUNTI" 

1050 GOTO 550 

9000 DATA0,56,0,0,56,0,0,56,0,0,16,0,0,124,0,0,187,0,1,57,0,1,57,0,0,185 
9U10 DATA0,0,165,0,0,36,0,0,68,0,0,66,0,0,34,0,0,35,0,0,50,0,0,36,0,0,72,0 
9020 DATA0,144,0,1,32,0,2,64,0,99 

9030 DATAO,56,0,0,56,0,0,56,0,0,16,0,0,124,0,0,187,0,1,57,0,1,57,0,0,135 
9040 DATA©,0,165,0,0,36,0,O,68,0,0,66,0,0,42,0,0,38,0,0,50,0,0,33,0,0,64,128 
9050 DATAO,128,64,1,0,0,2,O,0,99 

9060 DATAO,56,0,0,56,0,0,56,O,O,16,0,0,124,0,0,187,0,1,57,0,1,57,0,0,185 
907O DATAO,0,165,0,0,36,0,0,68,0,0,66,0,0,42,0,0,38,0,0,98,0,0,33,0,0,16,123 
9080 DATAO,8,64,0,4,32,0,2,16,99 

9100 DATAO, 0, 0, 0, 0,0,0, 0,0, 0, 0, 0,0, 0,0,0, 0,0, 0,0,0, 0, 0,0,0,0, 0, 0, 0,0, 0,0, 0 
9110 DATAO,0,8,16,0,8,8,0,16,4,0,32,2,0,64,1,0,128,0,129,0,2,66,64 
9120 DATAO,0,0,0,255,0,99 
9160 DATA2,0,0,1,O,O,0,128,64 

9170 DATAO,64,128,0,33,0,0,50,0,0,38,0,0,42,0,0,66,0,0,63,0,0,36,0,0,165,0 
9130 DATAO, 135,0, 1,57, 0, 1,5 r , 0,0, 1 o r ,0,0, 124,0,0, 11*, 0, 0, 56,0,0,56,0,0,56,0 
10000 DATA255,255,255,255,255,255,255,255 

10O10 DATAO,0,0,59,255,231,0,0,128,192,224,240,128,128,128,128,3,3,3,3,3,3,3,3 
10020 DATA192,192,192,192,192,192,192,192 

10030 DATAO,0,24,24,60,126,126,255,3,3,7,15,31,63,63,127,192,192,224,240,240 
10040 DATR248,252,252,60,60,60,6U,60,60,60,60 

































Un gioco (!!!) che sicuramente vi impegnerà. 
Dovete portare i numeri dalla colonna di sinistra 
(n. 1) a quella di destra (n. 3) con il minor nu¬ 
mero di passaggi possibili... ma attenzione, non 
potete incolonnare un numero che sia maggio¬ 
re di quello sottostante. 

La colonna al centro vi sarà di aiuto... e non pro¬ 
vate a fare i furbi ... l’ORIC Vi controlla 











30 REH 
40 REH 
50 REM 
60 REH 


IR PPM 'k ^ "k k k k k k k k kk k k k k kk k k k k * k k ^ 

\ |\ L | | ^ ^ 'p ^ Sv* n' ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 

20 REM * * 

* LA TORRE * 

* * 

* * 

* ORIC-1 * 

70 REM * * 

80 REM %%%%%%%%%%%%%%%%%%%%%%%%%% 

90 REM 

91 GOSUB 200 
95 INK 0 :CLS 
100 CLS:PRINT 
105 CN=1 

109 DIM AC3,113 

110 INPUT "LIUELLO DIFFICOLTA»C1-103" 
112 IF NO<1 OR ND>10 THEN 110 

♦ 

114 FOR 1=11-ND TO 10 
116 AGI,13=1 

118 NEXT I 

119 FOR D=1 TO20 :PRINT:NEXT D 

120 REM 

.121 REM * STAMPA LE TORRI * 

122 REM 

123 FOR J=1 TO 10 
FOR M=1 TO 3 
IF ACM,J 3=0 THEN 130 
PLOT M*5,J+15,STR$CACM,J33 

130 NEXT M 
132 PRINT 
134 NEXT J 

FOR 1=11-NO TO 10 
IF AC3, 1301 THEN 146 
140 NEXT I 
142 PRINT 

PRINT"CONGRATULA?IONI 2 2 2 2 


124 

126 

128 


136 

138 


144 



<njQ)j 

PRINT: PRINT"CI SEI RIUSCITO CON " ;N 
i MOSSE":END 
PRINT 
NM=NM+1 

INPUT "LA MOSSA DALLA TORRE " ;K 
PRINT 

* 

IF K<1 OR K>3 THEN 150 
FOR 1=1 TO 10 

,13=0 THEN 168 
‘ 13 




NEX 

GOT^J "150 
INPUT "ALLA TORRE ";K 
PRINT 

IF K <1 OR K>3 THEN 172 
FOR 1=1 TO 10 
IF ACK,I3=0 THEN 190 

ACK,I3 <TH THEN PRINT"NON PUOI FAR 
^GOTO 172 
, 1-13 = TH 
0 122 
EXT I 
ACK,.103 = TH 
TO 122 

NK 4:CLS:PRINT:PRINT:PRINT 








RINT"X 
NT"X 
NT"X 
INT"X 


XXX 
X X 
XXX 
X X 


I» 


XXX XXX XXX XXX XXX" 

X xxxxxxx 

X X X XXX XXX 
X X X XX XX 


XXX" 
X 



II 


T"XXX X X 


X XXX X X X X XXX" 



260 WfìlT 500 
270 RETURN 




WS 


















































Serie MZ-700 

La Sharp presenta la sèrie MZ-700, una linea di nuovissimi 
Home Computers con design e funzioni d’avanguardia: 
utilizzano infatti una CPU ad alta velocità ed una ampiezza di 
memoria di 64 Kbytes RAM. Grazie alla loro flessibilità ed 
espandibilità, soddisfano le più svariate esigenze 
dell’hobbista, del professionista e dello studioso. 



■ Vista anteriore 


Stampante-plotter a colori 




Tasti funzionali 
definibili 


Tastiera 


Vista posteriore 


Registratore dati 


Tasti di 

controllo cursore 


Tasti di inserimento 
e cancellazione 


Interruttore B/N-colori 


Interruttore canale 


Jack di uscita 
segnale composto 


Stampante-plotter a colori 


Connettore cavo di alimentazione 





A* 


UHMMÙM 


Jack di uscita 
segnale RF 


Connettore unità esterne 


Controllo volume 


Interruttore di alimentazione 


Registratore dati 

Connettore di uscita 
segnale RGB 


Interruttore di ripristino 


Jack registratore a cassette 


Connettori barra di comando Connettore stampante Terminale di massa a telaio 

esterna 










































































SHARP 



Versione sofisticata del noto Mastermind per lo 
SHARP MZ 721/731. 



Qual’è il codice segreto tenuto nascosto dal vostro 
computer? 

Sono possibili numerose varianti, determinate dal nu¬ 
mero di cifre formanti il codice e dalla scelta del li¬ 
vello di difficoltà. 




1 REfl 

2 REfl 

3 REM *MASTER MIND* 

4 REM 

5 REM 

6 PRINT"S" 

7 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 

8 PRINT"***** MASTER MIND 
*****" 

9 POR M=0 TO 3 

10 TEMPO 1 : MUSIC GR$ 

1 1 GR$= ,, ~C3'D'#D4~#D1 , "#D4-#D1~F4~#D1~D4 

C1 ""C5G"C#A#GfTC 1 B4~C 1 -D4"C 1 B4#G 1 G7R5 " 

12 NEXT M 

13 PRINT"S" 

14 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 


15 PRINT"BUON DIUERTIMENTO COL MASTER MI 
ND" 

16 POR 1 = 1 TO 2000: NEXT I 

17 PRINT"B" 

18 PRINT:PRINT SPRINT:PRINT:PRINT:PRINT 

19 PRINT"CON QUANTE CIFRE UUOI GIOCARE?" 

20 PRINT" CAL MASSIMO 73" 

21 PRINT:PRINT 

22 GET N: IP N=0 THEN 22 

23 IP N>7 THEN 22 

24 PRINT N 

25 N=N-1 

26 DIM AC 103 

27 PRINT 

28 PRINT "CHE LIUELLO DI DIFFICOLTA-' UUOI 

?" 

29 PRINT" CSC.E.GL I TRA 1 E" : C 1 0 -N3 


m 

m 


HI 
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30 PRINT SPRINT 

31 GET D:IF D=0 THEN 31 

32 IF D> C 10-N3 THEN 31 

33 PRINT D 

34 D-D+N 

35* IF D< 1 THEN THEN GOTO 160 
36 FOR I-0 TO N 
3? ACND = 10 

38 NEXT I 

39 FOR I-0 TO N 

40 X=D*RNDC13 

41 X=INT CX3 

42 FOR J=0 TO I 

43 IF X=ACJ3 THEN GOTO 40 

44 NEXT J 

45 ACI3=X 

46 NEXT I 

47 G=0 

48 PRINT"tì" 

» 

49 PRINT"SC.RIUI UN NUMERO DI" JfN+n; M CI * 
FRE ‘TRA 0 E" ; CD-1 3 ; " ; " 

50 PRINT :PRINT 

51 PRINT" C N 1 TENTATIUI CIFRE 
POSIZIONI" 

52 PRINT" l l i 

:PRINT 

53 INPUT B$ 

54 LX=LENCB$3sIF LXOCN+U THEN GOTO 57 

55 G=G+1 

56 DIM HC203:GOTO 59 

57 PRINT "TI HO DETTO DI SC.RIUERE UN" 

58 PRINT"NUMERO DI"JN+1 ; “ CIFRE":PRINT :G 
OTO 53 

59 R=0 

60 C =0 

61 PRINT "ED" 

62 FOR 1=0 TO N • 

63 LX=LENCB$3 

64 X=ASCCB$3 

65 X=X-48 

66 HCID=X 

67 IF X= ACID THEN C=C+1 

68 FOR J =0 TO N 

69 IF X=ACJ 3 THEN R=R+1 

70 NEXT J 


71 LX=LX-1 

72 B$=RIGHT$CB$,LX3 

73 NEXT I 


74 

75 

76 

77 


PRINT"ffl"; 

FOR 1=0 TO N 

IFCHCID<0D-tCHCID>9D THEN PRINT 
IF CHCI3<03+CHCJ3>93 THEN GOTO 


il 


7! 


78 PRINT HCID; 

79 NEXT I SPRINT TABC20D;G; 

80 IF R=N+1 THEN PRINT TABC243 ;" ;R ; " 

m ii « ti ii % r* 

* > ) 

81 IF R=N+1 THEN GOTO 83 

82 PRINT TABC26D;R ;TABC383;C 

83 IF C=N+1 THEN GOTO 85 

84 GOTO 53 

85 PRINT 

86 IF GOl THEN GOTO 89 

87 PRINT"SEI RIUSCITO IN";Gj" TENTATIUI" 

88 GOTO 90 

89 PRINT SPRINT-PRINT"SEI RIUSCITO IN";G; 
*’ TENTATIUI" :PRINT :PRINT SPRINT SPRINT 

90 PRINT 

91 PRINT"UUOI GIOCARE ANCORA? S/N"; 

92 GET S$ : IF S$ = "" THEN 92 

93 IF S$="S" THEN 13 

94 IF S$="N" THEN 96 

95 GOTO 92 

96 PRINT"@" :PRINT"fflfflSlfflfflSfflfflfflfflffl" SPRINT " ARR 
IUEDERCI ALLA PROSSIMA OOLTA" 

97 PRINT:PRINT:PRINT:PRINT:PRINT SPRINT :P 
RINT =END 

98 PRINT 

99 PRI NT'-'ABBANDONI DOPO" J & j " TENTATIUI" 

100 PRINT 

101 PRINT"LA COMBINA?IONE SEGRETA ERA” 

102 FOR 1—0 TO N 

103 PRINT ACID ; 

104 NEXT f 

105 PRINT :PRINT :PRINT:PRINT:GOTO 91 

106 END 



Il « 
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Siete curiosi di sapere se tra voi e il vostro o la vo¬ 
stra partner esiste un’armonia emotiva, intellettuale 
o fisica??? 

C’è da giurarci... Ma attenzione, la verità a volte può 
scottare! 







* 




.0 

RE.n 


20 

REM 


30 

REfl 

* 

40 

REH 


50 

REfl 


60 

REfl 


70 

REfl 


80 

PRINT" 

mm 

80 

PRINT" 

• 


* GRADO ARI-IONIA * 












































































SHARP 



:» 






# 

# 

# 


100 PRINT" 
TE DI 

110 PRINT" 
ONIA 

120 PRINT" 

•I 

130 PRINT" 


140 PRINT"ffl 
ERI RE 
150 PRINT" 

160 2=.993999 

170 PRINT"PRIMA PERSONA"SPRINT-PRINT 
180 GOSUB 500 
190 Gl=JD 

200 PRINT"SSECONDA PERSONA":PRINT:PRINT 
210 GOSUB 500 
220 PRINT"S" 

230 G2=JD 

240 DI =ABSCG2-G13 
250 RI=23:G0SUB 670 
260 FI=A 

270 RI=28:G0SUB 670 
280 EM=A 

290 RI=33 :GOSUB 670 
300 IN=A 

310 PRINT"TIPO DI ACCORDO ARMQN 

IA 

320 PRINT" — -- - 

_li 

330 PRINT" 2 2" 

340 PRINT" i l" 

350 PRINT 
360 RR=F I' 

370 PRINT FI ;TABC4 D \ "x nel FISICO";TABC2 
53 ;:GOSUB710 
380 PRINT"fflffl" * 

390 RR=EM 

400 PRINT EM;TABC43 ; M * ne II ' EMOT IUI TA ' " ; 
TABC253;:GOSUB710 

410 PRINT"fflffl" 

420 RR=IN 

430 PRINT INJTABC43 ì"x nell INTELLETTO"; 
TABC253;:GOSUB710 
440 PRINT"fflSffl" 

450 RR=INTC CFI+EM+IN3/33 

460 PRINT"COnPLESSIUAf1ENTE, TRA LE DUE P 

ERSONE" 

470 PRINT"UI E/ UN'ARflONIA ";:&OSUB710 
480 PRINT:PRINT 
490 END 


500 nUSIC"EFEFE": INPUT"Gl ORNO [DA 1 A 31 
1 " ;D 

510 D=INTCD3:IF [D<13+CD>313 THEN 500 

520 INPUT"fflMESE [DA 1 A 123 » " ;M 

530 f1=INTCn3:IF CM<13 + CM> 1 23 THEN 520 

540 INPUT"SANNO " ;T 

550 T=INTCT3 :1F T<0 THEN 540 

560 IF T>99 THEN 580 

570 Y=T+1900:PRINTTABC223;T 

580 W=INTCCM-143/12+23 

590 JD=INTC1461*CY+4800+W3/43 

600 B=367*Cn-2-W*123/12 

610 IF B<0 THEN B=B+2 

620 B=INT(B3:JD=JD+B 

630 B= I NT C I NT C 3.Y C Y+4900+W 3 / 1 00 3/4 3 

640 JD=JD+D-32075-B 

650 FOR 1=1 TO 1500-NEXT 

660 RETURN 

670 A=CDI/RI-INTCDI/RI33*RI*2-RI 
680 A=ABS C A 3 
690 A=INTCA/RI*1003 
700 RETURN 

710 IF RR=0 THEN PRINT "INESISTEN 

TE" 

720 IFCRR>03*CRR<=253THEN PRINT 
BASSA" 

730 IFCRR>253*CRR<=503 THEN PRINT 
"MEDIA" 

740 IF CRR>503*CRR<=753 THEN PRINT 
"FORTE" 

750 IF RR>75 THEN PRINTTABC253 ;"OTTIMA" 
760 RETURN 



QUESTO PROGRAMMINO PERMET 
CONOSCERE IL GRADO DI ARM 
TRA DUE PERSONE. 


A TALE SCOPO BISOGNA INS 
LE DUE DATE DI NASCITA 


_ 


so 











































* 























































da soli punti: una volta che i 
l candidato avra' ascoltato fi 
no alla noia la successione con 
tinua di tale gruppo 1 '; FLASH 1 
associando alla visione dei ca 
ratteri il loro proprio suono , 

ti 


1050 GO SUB 1500 

1050 PRINT "si passera ' alla fas 
e successivadi "“riepilogo"", ne 
Ila quale cercherà' di scrivere 
su di un foglio i caratteri 
che verrannotrasnessi. Una vo 
Ita terminato, p o t r a' controllare 
, spi ngendoun tasto, i propri pr 
ogressi . " 

1070 PRINT : PRINT "Man mano, au 
tentando la tunghez-za dei grupp 
i di caratteri (finca 5} e pass 
andò alle fasi successive: gru 
ppi di sole linee epiu' avanti 
punti e lìnee, avendo la costan 

za di fare almeno lora di eserc 
izio al giorno, po-tra' essere 
sicuro di fare un'ottima prova d 

'esame . 

1080 GÒ SUB 1500 

1090 PRINT "R tale scopo, la ras 
e 3) riproduce fedelmente la sit 
uazione del-l'esame: con veiocit 
a' dì 4-0 caratteri al minuto, i ■ 
gruppi sonofissi a 5 caratteri 
per un totale di 800.“ 

1100 PRINT : PRINT "Un consiglio 
cominciate l'addestramento su 
bito a 4-0 caratterial minuto.*' 
1110 PRINT : PRINT **flUUERTENZfl: 
poiché' l'unita' di ritardo deli 
O SPECTRUM, il " "PflUSE"" ,e' di 

80 millisecondi, velocita'di tr 
asmissione da oltre eocaratteri 
al minuto cominciano anon rispon 
dere piu' alle specifiche del co 
dice MORSE: per cui tale veiocit 
a' e' stata limitata ad 80 cara 
Iteri al minuto." 

1180 0 O eum 169» 

1130 CLS : PRINT RT 8,18; "CO ORR 

Ili©’PRINT RT B,5;"HET TET EUI UN 
R CUFFIA"; PAUSE 50 

1150 PRINT RT 11,5;"NON MUOUETEU 
I DAL UIDEQ" : PAUSE 50 
1150 PRINT RT 14., 14.; “E-: PAUSE 5 
0 

1170 PRINT RT 18,7; FLASH 1; M BUO 
NI FUTURI DX! ! I ": PAUSE 500: GO 
TO 14.0 

1500 PRINT 01; INUERSE 1;RT 0,0; 

••Premi un tasto per voltare pag. 

Se premi ""P"" farai una COPY 

• • 

1510 PRUSE 0 

1520 IF INKEY$= "p " OR INKEY$="P" 
THEN COPY : CLS : RETURN 
1530 IF INKEY % < > •• •• THEN CLS : RE 
TURN. 

1950 REM 
I960 REM 

1970 REM #**# TRRINING CU ***« 
1980 REM a#*»*****#***»**»*»** 
1990 REM 

8000 Cl_S : PRINT " TRAINING CU S 
ECONDO IL METODO INTERNRZIONRL 

yr n i»p S M J3 1111 ftt 

2010 PRINT : PRINT : PRINT G 

RUPPI DI CRRRTTERI IN PRO 

GRESSIONE DI APPRENDIMENTO: u 


2020 PRINT : 
E I 5 H 5" 

PRINT 

: PRINT 

• • 

1) 


2030 PRINT : 

PRINT 

"2) 

T 

M 

O 

0" 

204.0 PRINT : 
J 1 P" 

PRINT 

"3) 

R 

R 

L 

U 

2050 PRINT : 

3 4." 

PRINT 

"4.) 

U 

F 

2 

U 


2060 PRINT 

: PRINT 

"5) 

M 

D 

B 6 

8 9 X" 

2070 PRINT 
K C Y" 

: PR INT 

"6) 

G 

O 

Z 7 

2080 INPUT 

INUERSE 

i; •• 

Uelocita # 

caratteri/min 7"; v 



- 



2090 IF V >80 THEN GO TO 2080 

2100 input inuerse 1; ••Scegli da 

dove iniziare oppure da dove co 
ntinuare: da 1 a 6 **;g 

2110 CLS : PRINT " TRAINING CU S 
ECONDO IL METODO INTERNRZIONRL 

E n 11 f X 3 M 5” ** 90 

2120 PRINT RT 18,0; "": PRINT ** "" 
M*• *• * menu' principale" 

2130 PRINT .C"" = esercizi ri<e 

pi logativi" 

214.0 PRINT .S"" a scegli un a l 

tro gruppo" _ 

2150 IF 

5 

2150 IF 
9 

2170 IF 
= 15 

2180 IF 
=22 

2190 IF 
=29 

2200 IF 

= 36 

2210 LET t=3/V: LET p=t/.02 
2220 LET l»3*t: LET pl=3*p: LET 
p2=5«p 

2230 PRINT RT 10,4-;" 

224.0 LET C = i 

2250 LET X=2 

2260 PRUSE P2 

2270 PRINT a$(c,l);" "; 

2280 IF a*(c,x)="." THEN BEEP t, 
30: PRUSE P 

2290 IF a*(C,X) ="-•• THEN BEEP l, 
30 : PRUSE p 

2300 IF a*(C,X)=" " THEN GO TO 2 

370 

2310 LET X=X+1 

2320 IF X =8 THEN GO TO 2370 
2330 IF INKEY$&"tt" OR INKEY$="M" 
THEN GO TO 14.0 

234.0 IF INKEY* = "C" OR INKEY*="C" 
THEN GO TO 2500 

2350 IF INKEY $ = "S" OR INKEY* = "S" 
THEN GO TO 2000 
2350 GO TO 2260 
2370 LET C=C+1 

2380 IF Of THEN PRINT RT 10,5; " 

" : GO TO 

2230 

2390 GO TO 2250 
24-4-0 REM 
24-50 REM 
24-60 REM 

24-70 REM «ESERCIZI RIEPILOOfifTIVI 
24-60 REM ♦*#«## •**#*##** #«#««#** 

REM 

2500 INPUT INUERSE 1;"Di quanti 
caratteri li vuoi i gruppi ; d 
a 1,2,3,4-0 57 ";fs 

2510 IF fS>5 THEN GO TO 2500 
2520 LET fr= 7: LET fg=4- 
2530 LET ia=22856: LET fa=23072 
254-0 PRINT RT 4.,0; : FOR n =1 TO 1 

6 

2550 PRINT " 

• t 

2560 NEXT n 

2570 PRINT RT 20,0;"ESERCIZIO DI 
RIEPILOGO GRUPPO ";g: PRINT RT 
4- 0 * 

8560 GO SUB 7000 

8590 PRINT ttl;RT 0,0; INUERSE 1; 

“Un altro esercizio con gli 

stessi termini 7 (s/n) 

• • 


9=1 THEN LET i=l: LET f 


g =2 THEN LET i = 


g=3 THEN LET 
g =4- THEN LET 
g=S THEN LET 
g =6 THEN LET 


i 

m 

1 = 

m 

i = 

m 

1 = 

• _ 

1 = 


6; 

10 


f = 
f 
f 
f 
f 


2600 PRUSE 0 


























• •• 
• •• 
••• 
••• 
••• 

::: 

• •• 


•••••• 

••••••• 

••••••a 

taf 

M *n: 


:::::: ::: ::::::: 
•mia ••• aaaa*a 



2610 IF INKEY $ = " ** THEN GO TO 259 
0 

2620 IF INKEV$ = "S OR INKEY$="S" 
THEN GO TO 254.0 
2630 GO TO 2000 
2950 REM 
2960 REM 

2970 REM *** PROUR DI E5RHE *** 
2960 REM ********************** 
2990 REM 

3000 CLS : PRINT TRB 5;"*** PRQV 

R DI E5RME ***"; PRINT 

3010 INPUT INVERSE 1; “Ve locita f 

caratleri/ftin ?";v 

3020 IF V > 60 THEN GO TO 3010 
3030 LET fr=10: LET fg=4- 
304-0 LET f S *5 ; LET f =36 
3050 LET id=22560; LET fa=23232 
3060 GO SUB 7000 

3070 PRINT «1; INUERSE 1;RT 0,0; 
"Un altro esercizio? (s/n) 

3080 PRUSE 0 

3090 IF INKEY$= M s" OR INKEY*="S" 
THEN GO TO 3000 
3100 GO TO 14.0 
3940 REM 
3950 REM 
3960 REM 

3970 REM * SUBROUTINE PRINCIPALE 
3930 REM ******************&**** 
3990 REM 


7000 

LET 

t =3 /V : 

LET 

7010 

LET 

l=3*t: 

LET 

7020 

7030 

LET 

FOR 

p2=5*p 
r = 1 TO 

f r 

704.0 

FOR 

g = i to 

f g 

7050 

FOR 

s =1 TO 

f s 


P =t/.02 
Pl=3iP 


7060 LET X =2 

7070 PRUSE pi: LET C=INT (1+RND* 
f ) 

7080 PRINT INK 0;a$<c,l); 


7090 IF a $ < C , X ) =•*.•• THEN BEEP t, 
30; PRUSE P 

7100 IF a $(C,X) = " -" THEN BEEP l, 
30: PRUSE P 

7110 IF a*(C,X)=" THEN GO TO 7 
160 

7120 LET X =X 4-1 

7130 IF X =8 THEN GO TO 7160 
714-0 IF INKEY $ < > " " THEN RETURN 
7150 GO TO 7090 
7160 NEXT S 

7170 PRUSE p2 : PRINT TRB (84-8* (g 
-1) ) ; : NEXT g 

7180 PRINT ; PRINT ; NEXT r 
7190 PRINT Hi;RT 0,0; INVERSE 1; 
"Preai un tasto*per controllare 
INVERSE 0 ;" 

«• 


7200 PRUSE 0 

7210 FOR a=ia TO fa: POKE a,7: N 
EXT d 


7220 

7950 

7960 

7970 

7980 

7990 

8000 

8010 

8020 

8030 

304.0 

• I 

8050 

8060 

©070 

8080 

3090 

3100 

6110 

8120 

8130 


RETURN 

REM 

REM 

REM ** 
REM ** 
REM 
DATA " 
DRTR " 
DRTR " 
DRTR " 
DRTR " 

DRTR *• 
DRTR " 
DRTR " 
DRTR " 
DRTR " 
DRTR " 
DRTR " 
DRTR " 
DRTR " 


L * ALFABETO MORSE!** 
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2. .-" 

, -v 
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99 
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p, •• 

•• « 




9 9 



9-. " 

, "x 

mm. 
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La stregoneria di un folletto cattivo vi ha trasfor¬ 
mato in un vorace coccodrillo ... Povere quelle 
rane che ignare e tranquille se ne stanno lungo 
il ruscello. 

Il Mago del Bosco ha però un fluido magico 
(campo di forza) che può salvarle dal pericolo 
incombente, ma ahimè , è un pò distratto e non 
sempre se ne accorge! 

















































































































































































• c y 


1 

2 

3 

4. 

5 

6 
10 


REM GUt-P 
LET C>0« 
LET R*0 
RflNO 

FOR R«1 TO 


O *DI 


4-0 


LET Hsl6 

LET F=2*CXNT (RNDt6)) 

FOR B«® TO 2® 

PRINT RT 6/®;“f########CRHP 
*FORZR#******* 

ITT 12 , 15 i ''«■»" ; PfT IO 

;rt f > b; "ÉLJF 7 ; rt f*i,b 


• rr<r-—* rwtN "ctr rfrfi« 

IF INKEY»r u P H OR M<18 THEN 
PRINT RT H*1S;”." 

55 IF Bs 15 RND H=F THEN GOTO 1 


1B THEN 


;«T H ♦ 


»« 


7® IF INKEV$» ,% P ,% OR H< 
GOSUB 120 

80 PRINT RT F,B;" " 

90 NEXT B 
100 NEXT R 
120 PRINT RT H,16; n 
125 LET HsH-2 
130 RETURN 
150 PRINT RT H>B; %% 

1, Bi¬ 
le© PAUSE 50 
170 NEXT R 




































































































































































































Se volete sapere quanta memoria è stata occupata 
da un programma, questo listato vi sarà senz’altro 
utile. 

Compatibile anche per lo ZX/81 di base (1K di me¬ 
moria) sarà tuttavia maggiormente sfruttato se utiliz¬ 
zato per la versione 16K. 




_ 
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COMMODORE VIC - 20 



Scopo del gioco “Intelletto” è quello di realizzare il 
maggiore punteggio possibile muovendosi all’inter¬ 
no di un labirinto. 

Ricordate che il punto vale 10, l’asterisco 50 ed il 
Pound (£) penalizza di 100. 

Sono inoltre selezionabili 4 gradi di difficoltà in rela¬ 
zione alla possibilità di movimento. 









STRUTTURA 


0-26 

30 

- 130 

140 

— 150 

2000 - 

- 2011 

2012 - 

- 2014 


2025 

2026 - 

- 2027 

2030 - 

- 2070 

2075 - 

- 2081 

10.000 — 

10.010 


30000 

31000 - 

39999 


Presentazione del programma e valori iniziali 
Routine per la stampa del labirinto. (N.B. la tecnica 
utilizzata permette di disegnare un labirinto diverso 
ogni volta). 

IF Logiche per creare i gradi di difficoltà 

Routine per la stampa dei punti 

Routine per la stampa degli ostacoli 

Poke per la stampa della posizione di inizio 

Routine per la stampa asterischi 

Routine per la gestione dell’INPUT da tastiera 

Controllo della locazione occupata dalla posizione 

utente. Vengono sommati i punteggi parziali. 

Routine per la stampa punteggi parziali e totali. Clear 

delle variabili e rielaborazione automatica 

Routine per la gestione video 

Routine stampa circuito “facile” e relativa 

preparazione. 
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0 GQSUB50000:PRINT"IMMS a PUNTEGG10 ■ ":PRINT" MMS"; 

1 PRINT"MS . 10":PRINT" MS * 50":PRINT" MS # -100":FORMN=1TG2 

000 :NEXT 

2 R=8154 :FORRR=1TO5000:NEXT 

3 POKE650,128 

4 C=1 

5 DIMF'X < 29 >.. RX < 23 > '■ 'v-7702 : Q=3072Q 
10 DEFFNRC X > =X-1NT < RHH(0 > *X+1> 

20 PRINT"nMMMCiIFFICILE_1 " : PRINT"MMM1EDIfi.2" : PRINT"MMSFfiCILE.3" 

21 PRINT"MMSRLLEHRMENTO. . 4" : PRINT"MMMMS a SCEGLI ? " 

22 GETOf: IFOf=""THEN22 

23 IFRSC<0$> C490RRSC< 0 $ >>52THEN22 

24 B-v'fiL< 0 $> : IFB=3THENPRINT" 1" : R=8120+12 : G0T031000 
26 PRINT'LT 

30 FORK=0TO21 : L=FNR<2) 

35 POKEQ+K, 102-70*L:POKEV+Q+K,L+1 :PX < K+1> = 1-L 
40 NEXT 

50 PX(0 > = 1=PX < 23 > = 1 :V=7680 
60 F0RR=2T021:F=0 
70 FORC-0TO21 : P=V+22*P+C 
75 L=FNR<2) : K=C+1 

80 IFPX<K> = 1THENPOKEP,102-7Q*L:POKEP+Q,L+1 :F=1-L : RX<K>=F: GOTO100 
85 IFPX < K-1>=0RNDPX <K+1> =0THENPOKEP,102:POKEP+G,1 :F=1 :RX < K) = 1 : GOTO100 
90 IFF=0RNHPX<K-1> OPX<K+1>THENPOKEP,102 :POKEP+Q,1 :F=1 :RX<K > = 1 : GOTO100 
95 F=0 
100 NEXTC 

105 FORK= 1T022 : PX < K > =RX < K > ■ RX < K > =0 : NEXTK 
110 HEXTR:P=V+22*R-1 

120 FORK=1T021 : IFPX< K-1> =0RNDPX <K>=0RNBPX<K+1)=0THENPOKEP+K,102 :POKEP+K+Q,1 
130 NEXT 

140 IFB=1THEN30000 
150 IFE=2THEN40000 
2000 FORK=7680TO8164+21 

2010 IFPEEK<K ><>102THENPOKEK,46 :KK=KK+1 :POKEK+30720,1 

2011 NEXT 

2012 FORI=1T03 

2013 T=INT <RND<1> *505> +7680 : IFPEEK <T)O46THEN2013 

2014 POKET, 35 ■' NEXT 

2025 POKER, 81 :FORI=1TO30 

2026 T=INT <RND(1>*505 > +7680 : IFPEEK <T > O46THEN2026 

2027 POKET,42:POKET+30720,1 :NEXT 
2030 GETR$: IFR#=""THEH2030 

2032 IFR$="V"ORRT="J"ORR$="N"ORRf="G"THEH2040 

2033 GOT02030 

2040 IFR$="V"THENB-H-22 
2050 IFR$="G"THENB=fi-1 
2060 IFRf="N"THENB=R+22 
2070 IFR$="J"THENB=R+1 

2075 IFPEEK <B > = 102THEN2030 

2076 IFPEEK<B>=46THENGOSUB5000 : P1 ==P 1 + 1 

2077 IFPEEK <B >=42THENM-M+50:GOSUB20000:R1=R1+1 

2078 T FPEEK B ■< = 127THEN9R99 

2079 IFPEEK<B>=35THENM=M-100 :GOSUB15600 :C1=C1 +1 

2080 POKEB,81 : POKER,127:POKER+30720,3 : R=B : M=M+10 

2081 IFPEEK <B> =46THENGOSUB5000 
2090 GOT02030 

3000 GOTO3000 

5000 POKE36878,15 = P0KE36876,250 :FORLL=1TO10 :NEXT:P0KE36878,0 : P0KE36876,0 : RETURN 


















#";C1 : FORMM=1TO8000:NEXT:CLR: RUM 


3333 IF M<0THENM=0 

ì 0000 PRI NT " 3" : PRI NT " MWWM Hfi I FFITTO " ; M ; " PUNTI " 

10010 PRINT“WW *" ;.«t:PRINT" WM ."; PI :PRINT"WW 
15000 P0KE36878,15-P0KE36877,200 :FORBB=1TO100 :HEXT:P0KE3687S,0 :PQKE36877,0 : RETUR 
N 

20000 P0KE36878,15:PQKE36876,200 :FORHH=1TO50:NEXT:P0KE36878,0 :P0KE36376,0 : RETURN 
28999 END 

30000 FORI=7680TO7680+21 :POKE1,102 :POKEI+30720,1= NEXT 

30010 FOR I =3164T08164+21 : POKE 1, 102 : POKE I +30720, 1 : NEXT 

3002O FOR I =7680TQ8164STEP22 : POKE 1, 102 : POKE I +30720, 1 : HEXT 

30030 FORI=7680+21T08164+21STEP22:POKE1,102:POKEI+30720,1 :HEXT 

3O040 GOTO2000 

30999 END 

pr i nt " ; 

PR I NT " tè 







31 000 
31010 
31020 
3103O 
31040 
31050 
31060 
31070 
31080 
31090 
31100 
31120 
31130 



j 


PRINT "M 
PRINT" m 
PRINT "M 
PRINT"1 
PRINT" m 
PRINT"» 
PRINT"» 
PRINT"1 
PRINT"» 

PRINT"» 

PRINT"» 
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31140 

PR I NT 

"1 


w 

mm 

31150 

PR I NT 

"i 


WM 
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31160 

PRINT 
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m 

m 

31170 

PR I NT 
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31180 

PR I NT 
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PR I NT 

>.v 

»> 

•%Va Va a a • 
aaVa «a a a a 
a a a"a a a a a a 

m 

» 


. . 

• ••••• 

WM 


m 

m 


SS 

.'.V 

m 

m 


m 

■sm: 






ttlvX* 


w 

w 


W' 



mm 
mm 


XvM • 
:¥:• .• 

v.% I 



• • • 
•x.» 


• a • • • 


mm 


ri mmm 
’M mmm 
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31200 

31205 

31210 

31220 

31225 

31226 
31230 
33993 
40000 
00 

50000 

50001 


•r 

W' 

W 


w 


:S> 


W' 


»:• .* 


} 


a» 

} 




500U3 

50004 

5U0U5 
500O6 
50010 

50020 

50021 

50022 

50023 
50030 

50041 

50042 


PRINT”1 

pr i nt " mmm m mmmmmm. 

FORK=7702T08142+21:1FPEEK< K)0102THENPOKEK,46 : POKEK+30720,1 
HEXT 

FORL=1T035 

T=IHT<RND< 1 >*505>+7680:I FPEEK <T>046THEN31225 
POKET,42 : NEXT 
POKER,81 
GOTO2030 

FORI=7680T07680+21 :POKE1,102 :NEXT:FORI=8164T08164+21 : POKE1,102 = NEXT:GOTO20 
PR I NT " rial" : P0KE36879,8 

FRINT"SCOPO DEL GIOCO E' ' TOTRLIZZRRE IL MRS3IM0PUNTEGGIG." 

F'R I NT " WCOMPAR IRR ' UN PERC0R30D0VE NON E'' CONSENTI TORI PASSARE" 1 
PRINT" SUL PERC0RS0GIR'’ FATTO" 

PRINT":?M?M?I(!Mi!l?F'REMI UN TASTO" 

GETOf:IF0$=""THEH50006 
FRI NT "ZI a COMANDI " 

PRINT"WWW V>_ALTO" 

PRINT"W G>_SINISTRA" 

PR I NT " W J>_DESTRA" 

PRINT"W N>....BASSO" 

PRINT"*M?M«!I<!FREMI UN TASTO" 

GETOf: IFOf=""THEN50041 
RETURN 
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ZHORICK Generale Supremo delle Forze Aliene ha 
dichiarato guerra alla Terra. Il Gran Consiglio vi ha 
affidato la difesa di 6 città che dovrete salvare dalla 
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«sili* 




10 REM XX*********************** 


4 10 REn XNQU1DENTO DISSILI * 

20 REn * * 


415 REN 

30 REM * ZHORICK * 


420 J=J + 1 

I 40 REP1 * * 


430 IF J=10 THEN J=1 

50 REM * ORI C- 1 * 


440 IF J>1+SO20 THEN RETURN 

1 lì' 

60 REH * * 


460 PLOT CCJ3,RCJ3," " 

70 REn XXXXXXXXXXXXXXXXXXXXXXXXX 


470 RCJ 3=RC J 3+2 

80 REn 


480 X=SCRNCCCJ 3,RCJ 3 3 

90 REH ! 


490 IF X<>122 THEN 600 

85 REn 

500 PAPER 1 ) r- Li 

510 EXPLODE 1 

100 REn XDISATTRJAZIONE CURSORE* 


1 105 REn 


520 PLOT CCJ3.RCJ3,")" 

530 U1AIT 20 

140 PRINT CHR$C 1 7.1 



540 PAPER 7 

! 170 CLS 1 



550 PLOT CCJ 3,RCJ 3," " 

180 PLOT 15,11, * ZHORICK" 





552 PLOT CCJ3,RCJ3+1," " 1 

1 190 UIAIT 300 ' GOSiJB 1500 





554 PLOT CCJ 3,RCJ 3+2," " 

1 191 CLS J 


560 BL=BL-1 

1 192 REH 

m 1 

570 IF BL=0 THEN 1300 

193 REn *POSI2IONE CURSORE* 


580 GOTO 610 

I 194 REH 


600 IF RCJ 3 026 THEN 630 

195 FOR 11=1 IO 26 

610 RCJ D=2 

196 PRINT 


620 CC J 3 = I NT CRNDC 1 3X28 3 +4 

197 NEXT ri 


622 IF SCRNCCCJ3,263=32 THEN 620 

J 198 REN 


630 PLOT CCJ3,RCJ3,"C" 

199 REn XDEFINIZI ONE CARATTERI* 


640 RETURN 

200 REn 


690 REN I 

205 FOR J-47056 TO 47087 


700 RED *nOUIDENTO DIRINO* 

210 READ A 


705 RED 

220 POKE J , A 


710 K$=KEY$ 

230 NEXT J 


720 IF «$="" THEN 740 

240 DATA 63,45,63,45,63,45,63,63 


730 K=ASCCK$3 

250 DATA 0,28,28,28,28,28,28,8 


740 OX=SX 

260 DATA 12,12,12,63,63,12,12,12 


750 OY=SY 

270 DATA 42,21,42,21,42,21,42,21 


760 IF K=11 AND ST>1 THEN SY=SY-1 

275 REn 


770 IF K=10 AND SY<23 THEN SY=SY+1 

280 REn * UAlORI INIZIALI * 


780 IF K=9 AND SX<37 THEN SX=SX+1 

1 285 REN 


790 IF K=8 AND SX>1 THEN SX=SX-1 

290 SX=18:SY=15 


794 IF DL <1 THEN 940 1 

300 FOR J = 1 TO 9 


800 IF K032 THEN 940 I 

1 310 RCJ 3 = 2 


802 K=0 1 

320 CCJ3=INTCRNDC13*281+4 

• 

• 

810 2AP I 

1 330 NEXT J 


812 DL=DL-1 

340 GOSUB 1000 


814 D$=STR$CNL3+" " j 

350 J =0 i BL-1 8 ; NL-“ ; ?5 


816 PLOT 14,0,D$ 

360 D* = ,; PUNTI : ' *STR$CSC3 


817 REM % 1 

370 PLOT 21,0,0$ 


818 RED * TEST PER COLPI * 

380 PLOT 0,0,2 


819 REH I 

390 D$ - ' n I SS I L I • ’ : -STR$rnL3 


820 FOR M=1 T09 

392 PLOT 4 , 0 , D$ 


822 IF CCN3=SX AND RCD3=SY THEN 830 

400 GOTO 1200 


826 NEXT n 

405 REn 


827 GOTO 940 


» 
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828 REM 

829 REM * COLPI * 

830-PAPER 1 

840 EXPLODE 
850 SC=SC+10 
860 D$=STR$CSCD 
870 PLOT 28,0,D$ 

880 PAPER 7 

910 CCMD=INTCRNDC 1 3*283+4 

912 IFSCRNCCCM3,263=32 THEN 910 

920 R C n D = 2 

940.PLOT OX,OY," " 

942 LA=SCRNCSX,SY3 
950 PLOT SX,SY,"!" 

980 RETURN 

994 REM 

995 REM X CITTA * 

996 REM 

1000 FOR N=4 TO 29 STEP 5 
10'10 FOR P=24 TO 26 
102p PLOT N,P," zzz" 

1100 NEXT P,N % 

1110 PLOT SX, SY, " 

1120 RETURN 
1180 REM 

1390 REM * LOOP PRINCIPALE * 

1195 REM 

1200 GOSLiB 420 

1210 GOSUB 710 

122£ GOTO 1200 

1300 IF HS<SC THEN HS=SC 

1320 PRINT 

1330 PRINT "RECORD = PUNTI" 

1340 PRINT 


1350 PRINT "PUNTI : " ;SC 
1360 PRINT 

1370 INPUT"UUOI GIOCARE ANCORA?";Q$ 
1375 PRINT • 

1380 IF LEFT$CQ$,13="N" THEN 1410 

1384 REM 

1385 REM * RESET * 

1386 REM 
1390 SC=0 :CLS 
1392 RESTORE 
1400 GOTO 194 

1410 PRINT CHR$C17] 

1420 END 
1500 CLS 
1505 PRINT 

1510 PRINT"-ISTRUZIONI — 


1515 PRINT 

1520 PRINT" PER IL MOUIMENTO DEL MIRINO 

_ I 

““ I 

1530 PRINT" USATE I 4 TASTI CURSORE" 
1535 PRINT:PRINT 

1540 PRINT" PER SPARARE USATE LA CSPACE 
BARI" 

1545 PRINT:PRINT 

1550 PRINT" PER FERMARE IL MOUIMENTO DE- 
L" * 

1560 PRINT" MIRINO PREMETE UN QUALSIASI 
TASTO" 

1570 PRINT 

1580 PRINT"- 


1600 UÀ IT 800 
1610 RETURN 


























































Questo listato permette di rinumerare di cinque in cin¬ 
que le linee di un programma. 

Attenzione però: non vengono cambiati quei nume¬ 
ri di linea che seguono le istruzioni GOTO e GOSUB, 
per cui è necessario che questi siano corretti da voi. 
Il programma ha inizio con la linea 9990 apposita¬ 
mente per non interferire con il vostro listato. 


ISTRUZIONI 

Per eseguire: RUN 9991 (NEWLINE) 

N.B. Nel caso di rinumerazione di programmi molto 
lunghi, potete usare la funzione FAST. 



9980 REM NUM 


LET B 
LET N 
POKE 


LET N=N+5 


S 

, INT 
+ 1,N 
N 

=B 4* 1 


(N/256) 

a56*INT 


i 


9997 IF 25S*PEEK B4-PEEK IB + 1'J =99 
90 THEN STOP 

9998 IF PEEK (B-Lt=L16 THEN GOTO 
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La Terra è in pericolo! Sotto la sua superficie è na¬ 
scosta una base aliena dalla quale vengono lanciati 
dei micidiali missili: dovete distruggerla ... Ma attenti 
a non essere colpiti dai BLIMP, letali masse di 
energia. 

+ 




# 







STRUTTURA PROGRAMMA 


Linee 

100 - 180 


200 - 


250 

280 


230 

240 

270 

290 


inizializzazione e preparazione 
video 

movimento dei BLIMP 

test astronave colpita ed eventua 

le termine della partita 

lancio missili o BLIMP 

INPUT = “S” - sganciamento 

bomba 


300 

380 

470 

680 

570 


370 

430 

570 

730 

620 


630 - 640 
660 - 670 



movimento astronave 
movimento missili 

lancio e movimento bomba 
termine della partita/stampa 
messaggio 
■nuova partita? 
nuovo RUN 



90 REM ERSE RLIENR 

100 PRI NT " IT : F'OKE 36879,8 : POKE 650, 129 : CO=30720 

130 PR I NT " dii dliair.dina 

140 VF'=7702 : TI $= " 000000" : M1 =0 : M2-0 : BL=0 


I" 
























































































































160 POKE 7937, 102 : PQKE 7998+CO ,3 :POKE 7998.102 :POKE 7999+CO.3:POKE 7999.104 
170 BD=INT <RHD<1}*3 >-1 : IF BB=0 THEH 160 
180 PRIHT "SsfTEMPO •• "RIGHT$ < T1 1 .3> 

190 IF BL=0 THEH 258 
200 POKE BL.32 

210 IF BLC7742 THEH BL=0 : GOTO 250 

220 IF RNDC IX. 7 THEH BD=IHTCRNDC1 )#3~1) : BL=BL-22+BD 

230 POKE BL+CO.3 : POKE BL.42 

240 IF BL=VP THEH 570 

250 IF M 1=0 AND RNDC IX. 25 THEH MI =8164 

260 IF M2=0 RHD RNDCIX.25 THEH M2=8157 

270 IF BL=0 AND RNDCIX.25 THEH BL=7966+INTCRNDC 1 >*22> 

280 GET A$ : POKE VP.32:VP=VP+1 

290 IF R$="S" RHB B=0 THEH B=VP 

300 IF RiO"W"RHD AfO"X"RNDR$<>"R"RHB RtO"D"THEH 360 
310 CF-VP 

320 VP=VP+<(R$="M")#22)-< < A$="X"?*22> 

330 VP=VP+<R$="A">-<R$="D") 

340 IF VP<7702 THEH VP=CP 
350 IF VP>8185 THEH VP=7680 

360 IF F'EEK <VP>032 RHD PEEK<VP)O108 THEH 570 
370 POKE VP+CO.1 :POKE VP.62 
380 IF M1=0 THEH 410 

390 POKE M1.32 : M1=M1-22 : IF MI<7702 THEH M1=0:GOTO 410 
400 POKE Ml+CO.1 : POKE MI.93 
410 IF M2=0 THEH 440 

420 POKE M2.32 : M2=M2-22 : IF M2C7702 THEH M2=0•GOTO 440 

430 POKE M2+C0.1 : POKE M2.93 

440 IF BO0 THEH GOSUB 470 

450 IF VF-M1 OR VP=M2 THEH 570 

460 FOR 1 = 1 TO 55-NEXT:GOTO 180 

470 POKE B.32 

480 POKE 36876.C250-B/50>*2:POKE 36878.10 

490 E'=B+23 : 1F B<8185 RHD F'EEK <B> =32 THEH 560 

500 IF PEEK<B>=850 OR F'EEKCB>=73 OR F'EEKCB) = 160 THEH 680 

510 POKE 36877.5:POKE 36877.130=FOR 1=1 TO 60:HEXT 

520 POKE B. 32 : 1F B=M1' THEH M1=0 

530 IF F'=M2 THEH M2=0 

540 IF P=BL THEH BL=0 

550 B=0 : POKE 36876.0:POKE 36877.200 = FOR 1 = 1 TO 75 :NEXT:POKE 36877.6 
566 POKE B+CO.1 :POKE B.108'RETURN 
576 POKE 36877.150:POKE 36878.15 

580 FOR 1=1 TO 25-FOR J=1 TO 40=NEXT=POKE 36879.42:FOR J=1 TO 40-HEXT:POKE 36879 
Q:NEXT 

590 PRINT'TJStSEI STRTO ELIMINATO DOPO" 

600 F'RIHT RIGHT$<TI$.3>" SECONDI DI GIOCO" 

610 PRIHT"CHE SFORTUNA ! ! !" 

620 PR I HT : PR I HT " kUH " ALTRA F'RRT ITR? " : POKE 650.0 
636 POKE 36878.0:POKE 36876.0:POKE 36877.0 
640 GET A$ : IF Rf O"S"RHD R$<>"H"THEH 640 
656 IF A$="N"THEH F'RIHT" ALLORA. CIRO ! " : END 
660 PR I HT : PR I HT " ^*. r «RTTEHDERE PREGO *** " 

670 FOR 1 = 1 TO 3600 :HEXT:RUH 

686 POKE 36878.15:POKE 36877.250 :FOR 1 = 1 TO 500 :NEXT:POKE 36877.130 :POKE 36878.1 














SECONDI" 


690 FOR 1=1 TO 25:FOR J=1 TO 40:NEXT:POKE 36879.42 : FOR J=1 TO 40:NEXT:POKE 36879 
.8 :NEXT 

700 PRINT"risCI SONO VOLUTI "RIGHT$<TI$.3)" 

710 PRIHT"PER DISTRUGGERE LR BASE" 

720 PRIHT" SBRRVO! ! !" 

730 GOTO 620 
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Dovete far atterrare l’elicottero su una base in mezzo 
al mare, di notte, durante un temporale. La visibilità è 
scarsa ed il vento può farvi sbandare. 

Fate inoltre attenzione alla forza di gravità. 


Sulla destra dello schermo sono visualizzati gli stru¬ 
menti di bordo: controllate il carburante (FUEL) e la 
velocità di discesa (DESCENT RATE) - per un buon at¬ 
terraggio deve essere minore di 2. 




















Struttura programma 



Linee 



0-4 Inizio 

5-19 grafica 

Comandi: 

Variabili 

22-35 tempo illuminazione 

36-55 lettura tastiera 

500-640 atterraggio 

9000-9070 DATA 

A - sinistra 

D - destra 

W - spinta 

CO = generatori tono 

T = tempo illuminazione 
X = coordinate 

























































































0 PRI NT " □" : PQKE53280.■ 0 : P0KE53281.. 8 : V'=53248 : C0=54272 : P0KE54296 >10: FTIKE54276.0 

1 P0KE54276.. 123 : P0KE54278.. 240 

2 P0KE54273 > 0 : T=0 : X=35+1 NT < RND < 1 ) * 180 > : V=55 : B= < I NT < RND ( 1 > *5 > -2 ) /2 

3 F=10 : POKEV+21 .• 3 : POKE2040 >13 = POKEV+33, 1 : P0KE2841.. 14 : POKEV+40.. 4 : POKEV+28.3 

4 P0KEV+37 .• 5 : POKEV+33.. 7 : FORI =0TO 190 : RERDQ : POKEI +832.. Q : NEXT 



5 PR I NT " SiIFMfMFMFMfI■■■■■■■■■■B ì—--, 

6 pr i nt " ragiDnnasanei li? ni se. sì iFiiimiiii i 

7 PRINT" FfflSlMIllBBB! li? BENZ. Sì ! FinnIE BUI MI I 



i lini h 




s v 


'ENTOEiì libili no ni nini i 

i" 

iFiiimiir-- 


i" 



II 


8 FOR I =56016T056055 : POKE 1,6 : POKE I -CO .• 223 : NEXT : FOR I =56056TO56236 : POKE 1,6 

9 POKE I -CO, 168 : NEXT : POKEV, X : POKEV+2, X+24 : POKEV+1.. V : POKEV+3 .• V : PE=PEEK < V+31 > 

10 P RIN T " CÌPÌPIPI?MO » * B ► LLPl I ■ I !>>J FIRMI t»| FIMI! t:>1 "MIMI t>l Filmi tv-J " 

11 prInt">*»» ix>r,:Fiiiiiitoooi sr—nciiiimiiiiiiiii t>oc»o<i a t r 

15 PRINT”>»ia •+•+ - 

16 PRiNywna 

17 PRiNT'^nna nB " 

18 PRI NT " IIRISt 9R > 

19 PRINT'^llia/rtlllllMIMb'" 

20 F'RINT"cH!MfM«fMfMfMf 1ÌHI1IIII3 IMI" ; B : PRINT":?ftllllllll Siili"; INT<G*1O>/10 

21 PRI NT " iFlFlIIIIIIII min" ; I NT <F* 10)/10 

22 T=T+1:POKE2041, 14 :P0KE54273,100 

25 IF T=30 THENP0KE53281 , 11 •' P RIN T " clrlFlFMPl MIB QfB 1 ri H I,'Fi ini LFl inil+lim l' ' 1 
30 IF T=32 THENF'RINT"SWD!MFIFIMMI Flit IH FUI IBI Fili 51 IH! Fili III " 

35 IF T=35 THENPOKE 53281>0=T=0 

36 POKE 562730 0 
40 PE=F’EEK( 197) 

45 IF PE=18 RHDF>0THENX=X+2 : F=F~.1 
50 IF PE=10 RNDF>0THENX=X-2 : F=F-.1 
55 IF PE=9 flNDV>50RNDF>0THEN)'=V-2: 0=0 : F=F-. 3 
66 X=X+D : IFRNIK1X.1 THEH X=X+2:F=F-.l 

68 POKE 2041,15:P0KE54273,100 :V=V+G: 0=0+.2=1FX>215 THENX=215 

69 IF X<32 THENX=32 

70 POKE V,X :POKEV+1, V :POKEV+2,X+24:POKEV+3,V 

71 IF F<0 THENP0KE54296,1 

72 IF X>11RNDXC120RNDV>135THEN500 

78 IF PEEK<V+31 >O0THEN100 

79 POKE 54273,0 

80 GOTO20 

100 P0KE53281,11: PRlNT"SS«aFM«IIIIBlal, Flirill FliniL Flinill FliniL 

101 P0KE54296,15:PORI=20TO0STEP~.2 :P0KE54273,I :NEXT:P0KE54273,0 
110 FORI=1TO20:POKEV,X-1 :POKEV+2,X+1 :NEXT 

120 FORI=VTO220 : POKEV+1,1 :POKEV+3,I :P0KE54273,I :NEXT:P0KE54273,0 
130 POKE V,0 :POKEV+1,0 : POKEV+2,0 :POKEV+3,0 

158 P0KE53281,0:PRINT"a«FWFlFlBBBai/rI»riBL''FliniBlKFlinilKFlirilL---'" 

188 FORI=1T02000 : NEXT 
280 RIJN 

508 IF G>2THEN180 

608 P0KE53281,2:POKEV+1,136 :POKEV+3,136 :P0KE54273,8 :P0KE54276,8 :P0KE54276,17 
685 GOSUB800 

610 PRINT M ®»MtìtìF»MFMtì««FltìtìtìtìFW:*lll ******* BRAVO ! ! ! *******" 

628 PRINT"3»0»»MM CONTINUI ? 

625 GET fì$ : IF R$="S"THENRIJN 
638 IF RfO"N"THEN625 
635 PR I NT " SllKVE BVE. " 

648 END 

800 FORI=30TO100 STEP2 : P0KE54273,I :NEXT 
810 FOR I = 140TO95STEP-1 •' P0KE54273, I : NEXT 
820 FORI=5TQ20STEP.4 :P0KE54273,I :NEXT 
830 FORI=90TO70STEP-.3 :P0KE54273,I= NEXT 
848 FORI = 10OTO0 STEP-.3 :P0KE54273,I :NEXT 
858 FOR1=28 TO10 STEP-.2 : P0KE54273,I : NEXT 
868 FORI= 90 TO70 STEF'-. 2 : P0KE54273,1 : NEXT 
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870 FORI= 0 TO10 STEP. 1 : PQKE54273, I : NEXT 
880 POKE 54273/0 :P0KE54277,0 
890 RETURN 

9000 DATA 0 .. 0.. 0, 0,0, 0, 0, 0,0,0 , 0, 0, 0, 0,0, 0,0,0,00, 0 , 0, 0 , 00,0,0,0,64,64,0, 17,0 , 
0 


901 0 
9020 
9030 


QC 


0050 

9060 

9070 


DATA 

DATA 

DAT fl 
DATA 
DATA 
DATA 
DATA 


r , 11 4 .* 0, 10, 1 { 0 , 0,4,0,0, 1 \ , 0, 0,64, 64,0,0,0,0,0, 0, 0 ,0, 0, 0, 0,0,0,0,0,99 
0 , 0 , 8 , 0 , 0 , 0 , 85 , 85 , 85 , 0 , 16 , 0 , 0 , 125 , 0 , 0 , 251 , 0 , 3 , 184 , 192 , 3 , 184,240 
15,1 86 , 176 , 15 , 190 , 176 , 171 , 190 , 252 , 171 , 170 , 252,1 87 , 255 , 252 , 15 , 255,240 
3 , 223 , 192 , 0 , 16 , 0 , 0 , 16 , £1 , 5 , 85 , 84 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 8,99 

U, U, 0,0, 0, 0, 0, 84, 0 , 0, 16, 0 , 0, 8 15, 0, 0, 251,0,8, 1 o4, 19^i, 8,1 o4, iì40 
15,186,176,15,190,176,171,190,252,171,170,252,187,255,252,15,255,240 
3,223,192,0,16,0,0,16,0,5,85,64,0,0,0,0,0,0,0,0,0 




Annotazioni per i lettori del N. 1 




AL RISTORANTE pag. 86 (CBM 64) 

I tasti da usare per il movimento del cameriere sono: 
“Z" per direzione sinistra, “M" per direzione destra. 
Inoltre, se volete rendere il movimento del tacchino 
più rapido, modificate la linea 60 nel modo seguente: 
• Y1=Y1+2 + YD : X1=X1+2 + XD 

Per rendere invece più veloce il cameriere, modifi¬ 
care la linea 26 in P = P—3 e la linea 32 in P = P + 3 





GRAN PRIX pag. 82 (VIC-20) 

Diamo di seguito il numero di linea e gli “spazi da 
battere’'per ottenere il tracciato della pista: 


120 

27,11,4 

130 

3,6,5,2 

140 

2,4,2 

150 

2,1 

160 

2,4,2 

170 

2,5,3 

180 

3,6,9,7 

200 

8,10,10 

210 

12 

220 

10,10,8 



























































ISTRUZIONI 



Siete il terrore dei 7 maricon il vostro sottomari¬ 
no avete già distrutto intere flotte di navi. 

Ma c’è ancora una missione per voi! Avete 20 siluri 
a disposizione, cosa affondare? ... la lenta portaerei 
o le veloci cacciatorpediniere? Non esitate. Un atti¬ 
mo di distrazione ... e la bomba di profondità potreb¬ 
be esservi fatale. 


Per il movimento del sommergibile usare i tasti cur¬ 
sore 5 (sinistra) e 8 (destra); lanciate i siluri con il ta¬ 
sto «SPACE». 

Se volete avere un numero maggiore di siluri a di- # 
sposizione intervenite nella linea 10 modificando il 
valore della variabile «torp». 
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1 REM *********************** 


* * 

2 REM * YELLOU * 

* * 

3 REM * SUBMARINE * 

* * 

4 REM * * 

* SpectfUtt 16/4-8R * 

5 REM * * 


*********************** 

Tl REM 

7 REM 

8 REM 

9 REM 

10 GO SUB 7999; INK 7; BORDER 
1; PAPER 1: LET SCOfe=0: LET SUX 
=15: LET State =0: LET SdC=0; LET 
pd C =0 : LET dd C =0 : LET torp=20; 
LET tpy=0: C-LS 
50 PAUSE 50 

70 PRINT AT 8,12;“YELLOU”;AT 1 
0,11; "SUBMARINE"; AT 12,14; 

80 PAUSE 200 
100 REM ISTRUZIONI 
110 INK 0: PAPER 5: BORDER 5 
120 CLS 


130 PRINT TAB 11;" SUBMARINE " 

14.0 PRINT TRB 11; 

150 PRINT --Controll 

i ' 


160 REM 
165 PRINT " 

es tra. 


Si n i s t r a 
(5) 


D 

(8.ì 


170 PRINT 
": INK 1 

180 PRINT ' 
190 PRINT " 
200 PRINT 
210 PRINT " 
220 PRINT 
230 PRINT " 
24.0 PRINT 
250 PRINT " 
260 PRINT 
270 PRINT " 


Si turi =(SPACE) 



1000 




• % 


P un ti" 
punti" 
punti" 
punti " 
i punti 


280 INK 0: PRINT '' 

290 PRINT BRIGHT 1; PAPER 6;" 

Premere un qualsiasi tasto 
300 PRUSE 0 

320 BORDER 0: PAPER 5: INK 0 


INK 1 

FOR 3=10 TO 21 



520 FOR a =1 TO (5tRND) +1 
530 READ 3$,vai 
54.0 NEXT a 

54-5 LET S tep = . 25+ ( C INT (RND*6) + 
1 > ./©> 

550 RESTORE _ 

560 INK 5: PRINT RT 9,0,"HMHB 

600 PRINT RT 0,0;"SCORE:"JSCOre 
: PRINT RT 0,17;"SILURI:tOrp: 
IF torp<10 THEN PRINT RT 0,25;" 


700 INK 5: PRINT RT 9,ShX+5; 

705 INK 1: PRINT RT 20 / SUx;"|B" 
710 LET SUX=SUX> CINKEY$ = ,, 6 , ‘ RND 
SUX <30) - ( INKEY$ = "5" RND SUX>0) 
715 PRINT OUER 1; PRPER 6; BRIG 
HT 1; AT 20 , sux ; 

720 PRINT OUER 0 ;RT 9,Shx;a* 

725 IF INKEY$= M " RND state=0 T 
HEN LET Statesi; LET torp=torp-l 

726 IF Statesi THEN GO SUB 1000 


727 IF State =0 THEN GO SUB 900 

728 IF torp<0 THEN GO TO 3000 

729 IF SdC=l THEN GO SUB 2500 

730 IF S d C =0 RND vai=1000 RND R 
ND < . 4 THEN GO SUB 2000 

74-0 LET ShX=ShX-Step 
74.5 IF (ShX < 1 RND torp<l) THEN 
GO TO 3000 

750 IF ShX < 1 THEN GO TO 500 

760 GO TO 600 

900 LET POS t=SUX 

905 LET tpy=18 

910 RETURN 

1000 INK 1: PRINT RT tpyfl,pos t 
1030 PRINT OUER 1;RT tpy.post ; n A 


1034'IF tpy>10sTHEN“ GO TO X0+m?m | 

1035 IF tpy=10 THEN LET State«0 

1036 IF tpy=10 THEN PRINT RT tpy 

/POSt; 

1037 IF tpy=10 RND SCREEN$ (tpy- 
l,post)<>" " THEN LET score=scor 
e+val; PRINT OUER 1;RT tpy-l,pos 
t;*V: PROSE 50: FOR y=l TO 8: B 
EEP .05,10*RND+20: NEXT y; PRINT 

RT tpy-1,0;" 

GO TO 500 

104.0 LET tpy = tpy-*5: BEEP .06,-1 
0: RETURN 
2000 REM 


2010 LET pdC=ShX 
2020 LET ddC =10 
2030 LET SdC=l 
204.0 BEEP .1,-20 
2050 RETURN 

2500 INK 1: PRINT RT ddc-l,pdc;" 

■" 

2510 PRINT OUER 1;RT ddC,pdC,*"«" 
2520 IF ddC =20 THEN PRINT OUER 1 
; RT dóc jPó C , "iS" : PRUSE 25 : BEEP 
.25,-20: PRINT RT ddC,pdc;"B": L 
ET SdC=0 

2530 IF d d C =20 RND RBS (pdC-SUX) 
<3 THEN PRINT RT 20,SUX; "^ M : BE 
EP .25,-30: PRUSE 25: PRINT RT 2 
0. SUX GO TO 4.000 

254.0 LET dd C =dd C *1 


2550 RETURN 
3000 CLS 

3100 FOR V =0 TO 20: PRINT RT 0+V 
,0; FLRSH l;" GRME OUER "; 

INUERSE 1;" GRME OUER ": NE 

XT V 

3200 GO TO 5000 


4-000 INK 1: CUS : PRINT 
EI STATO COLPITO DA UNA 
ONBA ANTI-SOMMERGIBILE“ 
4-010 INK 0: PRINT ' ' ’’ 


# M S •• 


s 

B 


IL TUO 


PUNTEGGIO ERR :";score 


4-015 PRINT ' ' 

4.020 PRINT " 

4.030 PRINT " 

4.050 PRINT " 

4.060 PRINT " 

4070 PRINT " 

4-080 PRINT " 

4090 PRINT '' 

5000 PRINT " UUOI GIOCRRE RNC 

ORA?(S/N)" 

5010 INPUT LINE a$ 

5020 IF 3$ = n S" OR a $ = "S" THEN RU 



N 


5030 IF a $s"n" OR a$ = "N" THEN ST 
OP 

5040 GO TO 5010 

7999 CLS : PRINT RT 10,2; INUERS 

E 1;" ATTENDERE UN MOMENTO,PREGO 

• • 


* 8000 RESTORE 9000 
8010 FOR a=144 TO 164 
8020 FOR b=0 TO 7 
8030 RERD C 

8040 POKE CUSR CHR$ a)fb,C 


io 




















••• ••••••• 

•M •••••#• 

• •• M« 

• •• M»M 

::: 

••• ••••••• 

•M »••••• 




8050 NEXT b 
8OB0 NEXT a 


8080 RETURN 
9000 DRTR 1,3,3,127, 

0 

9010 DRTR 0,192,192, 
248,0 

9020 DRTR 0,0,3,3,255 
9030 DRTR 8,60,60,253 
5.0 

904.0 DRTR 0,0,0,192, 

0 

9060 DRTR 0,0,0,24, 
90T0 DRTR 0,0,1,15, 




/ 

✓ 




,63,0 

,255,25 


/ 


,63 >31 
^ 255,2 


DRTR 1,255,24-9. 
55 

DRTR 0,3,243,255 



SUBMRRXNE 


9100 DRTR 0,0 



9110 

DRTR 

9120 

DRTR 

4,0 
9130 

DRTR 

9140 

DRTR 

5/0 

9150 

DRTR 

4/0 

9160 

DRTR 

9170 

DRTR 

5/0 

9180 

DRTR 

4,0 
9190 

DRTR 

9200 

DRTR 

6/0 

9210 

DRTR 


6 


0,0,0,3,255,127,63.0 
0,0,192,224,255,255,25 

0,0,1,3,255,127,63,0 
4,30,62,255,255,255,25 


0 , 0 , 




0,0,3,55,255,127,63,0 
4,28,30,254,255,255,25 


0,0,192,230,255,255,25 

0 , 0 , 120 , 120 , 120 , 0 . 0,0 
137,74,42,0,255,255,12 

24,24,24,24,24,24,36,6 


—Con trolli — 


Sinistra 

(5) 

Si turi 


= ( 


s t r 

(3) 



) 



1000 punti 
25G punti 
250 punti 
500 punti 
3 punti 




Pre»ere un qualsiasi tasto 




7 / 











































Il programma che vi presentiamo non solo risolve 
qualsiasi equazione con radici reali, ma ha il pregio 
di visualizzare i vari passaggi operati fino alla solu¬ 
zione finale. 

L’ecftìazione è del tipo AX 2 + BX + C = 0/, pertan¬ 
to vi verrà chiesto di inserire i dati A,B e C: 

# 

Il computer inizierà ora l’elaborazione!!! 





STRUTTURA DEL PROGRAMMA 

Linee j 

100-170 introduzione 

A = coefficiente di X elevato al 
quadrato 

B = coefficiente di X 
C = costante 

180 preparazione schermo 
190 A = linea grafica 
200-520 calcolo soluzioni 
600-630 in assenza di radici “reali”, stam¬ 
pa della spiegazione 

Attenzione! Lo ZX81 non può risolvere radici qua¬ 
drate di un numero negativo 


72 













































































1 PCM EQUAZIONI 

10® PRINT "EGURZIONI DX XX QRRD 
O" 

Ila PRINT 

ISO PRINT M DRTR LA EQUAZIONE RX 
X ^bx +C*0 fl 

13® PRINT " (DOUE XX-X «L QUADRA 
TO) M 

14.® PRINT M INSERIRE A>0,C,0QNUN 
O SEGUITO DR NEULINE•" 

16® INPUT R 
16® INPUT B 
17® INPUT C 
1G® CL5 



PER RI50LUERE LA EQU 


20® PRINT 
RZIONE: 

SI® PRINT %% %% ;STR® R; "XXf"; STR 

% b; "X4"; str® c;"*e %T 

sa® PRINT M USRNDO LA FORHULR," 
33® PRINT 

240' LET D«LEN (5TR$ Af5TR$ B f5T 
R$ BISTRI C) 4*7 

SS® PRINT TRB 34LEN STR® B; a '+|'' 
; R® ( TO D) 

26® PRINT * % X»- %% ;B; %% -"";B; 

•• _ # J m l > » i t « «%» • • Il % Il 

* > Hi w j l 

27® PRINT TRB 2; R® I TO Df5) 

20® PRINT TRB LEN R® < TO 
; 2#R 

29® PRINT 

30® PRINT TRB 34LEN STR® B; %% 4 §" 
;R®( TO LEN (STR® (BtB) 4STR® (4.# 
R*C))41) 

31® PRINT "X = - %% ; B; %% B*B; %% - 

4®R#C 

32® PRINT TRB 2; R® ( TO 4> 4LEN (S 
TRI B4STR® (6#6) 4&TR® U»A#C) ) ) 
33® PRINT TRB S4LEN STR® B;2»R 
34.0 PRINT 

3S0 LET D«B*B-4#AtC 
360 IF D <0 THEN GOTO 60® 

370 LET QbINT (10004SOR D)/10O0 

; %% 4 %% ;D; %% o 


%% • 
/ 


4.00 PRINT 
B; D 

4.1® LET E 


"X* 

LEN 


%% • 


\\ % 


<STR9 -B+&TR* D> +- 


<ta® PRINT TRB a;R*< TO E» ; •• 

•*;r*c TO E) 

4.30 PRINT TRB (SfE) /3;Rt3;TRB 4 
♦E + (8+E) ✓a; a»R 
440 PRINT 

480 LET XRaINT (1000»l-BtD)✓la* 
R))/1000 

480 LET XB-INT (1000*(—B—D) S (2* 
R)>/1008 

470 LET B$»"Xs" +STR$ Xfl + " O *• + 
STR® XB 

400 IF D>0 THEN LET B®«”X«" 

% XR 

500 PRINT "QUINDI %% ; B® 

510 PRINT R® i TD LEN B®47> 


600 PRINT 
610 PRINT 

C b II II • f\ 0 il il 
* — *** * * 

620 PRINT 

HR RRDICI 
ICE QUADRATA 
630 PRINT **E 


PO!CHE";B#B; " 4«R* 


NON 
LA RRD 


Dì D 
IMMAGINARIA 


• • 


PER RISOLUERE Lft EOUflZIONE:- 
2XX+-lX+-3=8 
USANDO LR FORMULA, 



4 


X = l+5 o 

4 4 

QUINDI Xal.S O -1 




PER RISOLUERE LR 
' : <3*nr«-Y-C4< •; 3-t5 
USANDO LR FORMULA, 



x=-a 



*2-(4 *3*6) 




POICHE4-72 = -68, 

QUESTA EQUAZIONE NON HR RRDICI 
RERLI,PERCHE LR RRDICE QURDRRTR 
DI -68 

E IMMAGINARIA. 


PER RISOLUERE LR EQUAZIONE:- 
3XX+2X+6-0 
USRNDO LR FORMULA, 



6 


POICHE4-72=-SS, 

QUESTA EQUAZIONE NON HR RADICI 
RERLI,PERCHE LA RADICE QUADRATA 
DI -68 

E IMMAGINARIA. 
























La curiosità vi ha fatto addentrare in un complicato 
labirinto... 

4 

Girate a destra, a sinistra, andate dritto poi ancora 
a destra... ma tutti i corridori sembrano uguali!!! 
Una volta trovata l’uscita, ve la sentite di riprovare? 



5 REM ********************* 

10 REM *** LABIRINTO *** 

1S REM *••***********-**»**** 

20 CLERR 53099 

30 CLS : RESTORE : FOR n=1 TO 
25: RERD . : POKE 60860+n,a: NEXT 
n 

4-0 DRTfi 62,0,230,7,57,33,0,86, 
6,3 , 19? , 6,0,126,230,24-8,178,119 « 
35,16,24-8,193,16,24-2,201 

50 PRPER 6 : XNK 6 : FLASH 1: PR 
XNT RT 6,0: FOR i=l TO 7: FOR n => 
1 TO 15: PRINT '*■ ” : NEXT n 
55 POKE 23692,255 

60 XF XNT {i✓fi* < >i /& TMEN PRIN 

T ”■. " RND i <7; 

70 IF XNT ( i S2) si /2 THEN PRINT 

* 


80 NEXT i: FLASH 8: PRINT RT 9 
/2;TRB 29;RT 10,2;” *** L R B I 

R I N T O *** ,# ;RT 11/2; TAB 29 

90 FOR n «1 TO 6: PAUSE 25: POK 
E 60862,n: RANDOMIZE USR 60861 
100 BEEP .1,0: BEEP .1,6; BEEP 
.1,0: PAUSE 25 

110 BEEP .1,12: BEEP .1,6; BEEP 
.1,0: NEXT n: PAPER 7: XNK 0 
120 CLS : PRINT TAB 9;“**LABIRI 

NTO##‘. Trova la tua via nel 

dedalo. Muovi un passo avant 

i con 0 # 11 

130 PRINT *'"Usa i tasti cursor 

e per cambiare di razione ;",,"5 

* Ovest* 1 , "8 a Est.6 a Sud 11 , 

**7 a Nord 11 


IH 


















































14.0 PR INT ' ' # ‘Se ti perdi preni 
h per avere una pianta del lab 
irinto."," (Disponibile solo 5 
volte)." 

150 INPUT "Scegli il labirinto 
<1-2-3) - ••*»: LET m >80921 *m *80 : 

60 SUB 3500 

160 LET q*="": LET a =B ; LET d=l 
: LET eal: LET »=0: LET p*0 
170 LET X =9 : LET y =0 : LET xl=X: 
LET yl=y: CLS 

180 GO SUB 3950: PRINT »0;TRB 6 
;"Preai 0 per entrare nel lab irà 
nto": GO TO 510 

190 LET a fsINKEY$ : IF a* = "" THE 
N GO TO 190 

200 BEEP .2,0: IF a$="0" THEN G 
O TO 24.0 

210 IF a$= u H" OR a$="h" THEN LE 
T p=p +1: IF p <-5 THEN BEEP .2,10 
: GO SUB 1000: GO TO 510 
220 IF a*>"4" RND a$<"9" THEN L 
ET a «URL a $ : LET d = (a =8 OR a =6) - 
(a =5 OR a = 7 ) : LET e = (a >6) - Ca <7) : 
BEEP .2,10; GO TO 50© 

230 GO TO 190 

LET yl=y1* (a =8) - (a =5) 

LET xl»xl+ (a =6) - (a =7) 

300 IF d=-l RND yl=e RND X1<>15 
THEN LET y1=1: LET d=l: LET a=8 
: PRINT RT 4-,3; "Stai tentando di 
attraversare"; RT 5,4.; "l "entrata 
l " : GO TO 4.00 

310 IF PEEK (61968+xl*32+yl) TH 
EN PRINT RT 3,2;"Non puoi passar 
e attraverso i «uri»": LET xi=x: 
LET yl=y: GO TO 4.00 

320 LET B=B*1: IF Xl=15 RND yl = 
0 THEN GO TO 3000 
330 GO TO 500 

4.00 PRINT RT 5,18; "Prova ancora 
FOR n =0 TO 200: NEXT n 


510 IF y1 THEN PRINT RT 1,6;"St 
ai vedendo ";d6(a-4> 

520 PLOT 8,0: DRRU 0,175: PLOT 
24.7,0: DRRU 0,175 
530 LET X =X 1 : LET y =y 1 : LET dl = 
d 

54.0 IF a =5 OR a =8 THEN GO TO 80 

0 

550 FOR i=0 TO 4.* LET f»61968f ( 

X +d ) «32 

560 IF PEEK (f+y) THEN GO SUB i 
*10+2000: GO TO 92© 

570 IF PEEK (f+y-e) THEN LET q = 
1; GO SUB 2600: GD TO 590 
LET q=2: GO SUB 2600 
IF PEEK (f*u*e) THEN LET q= 
3: GO SUB 2600: GO TO 890 
600 GO TO 880 

FOR i-0 TO 4-: LET f =61968 «X 

LET 9 se*32 _ 

820 IF (y=0 RND i=0) OR y*d=0 T 
HEN GO TO i*10*2500 
84.0 IF PEEK (f+y+d) THEN GO SUB 
i«10*2000: GO TO 920 
850 IF PEEK (f-9*y*d) THEN LET 
q = 1: GO SUB 2600: GO TO 870 
860 LET q =2 : GO SUB 2600 
670 IF PEEK (f*g*y*d) THEN LET 
q*3: GO SUB 2600: GO TO 690 
660 LET q=4: GO SUB 2600 
©90 LET d =d*d1: NEXT i 
900 IF PEEK Cf*y-e*32*(g*d)*(a » 
5 OR a=6)) THEN GO SUB 2650: GO 
TO 920 

910 PLOT 124., 84.: DRRU 3,2: DRRU 
0,3: DRRU -3,2: PLOT 131,84.: DR 
RU -3,2: DRRU 0,3: DRRU 3,2 
920 LET d =d1: GO TO 190 
1000 RRNDOMIZE USR 60905: IF p T 
HEN PRINT RT 0,10;n*(p);" Sche rB 

O" 

1010 PRINT RT 9,(yol);")";PT 1S 


, 1;"<";RT x,y; FLASH l;"x" 

1020 PRINT RT 21,10;"Tu sei qui 

"; flrsh l;"x" 

1030 PRINT 90; RT 0,10; "> = Entra 

t a";TRB 10;"< = Uscita" 

104.0 FOR n =0 TO 200: BEEP . 005, n 
✓4: NEXT n 

1050 PRINT RT 0,0,,;RT 9,0," "; 

RT 15,1;" ";RT x,y;" ";RT 21,0 ,, 
1060 RRNDOMIZE USR 60905: RETURN 

2000 DRRU -239,0: PLOT 8,0; DRRU 
,0; RETURN 

: DRRU 127,0: PLO 
127,0: RETURN 
: DRRU 66,0: PLOT 


2010 PLOT 64., 41 
T 64,134: DRRU 
2020 PLOT 95,64 


95,111: DRRU 66,0: 


RETURN 


DRRU 33,0; PLO 
33,0: RETURN 
: DRRU 15,0: PLO 
15,0: RETURN 
: DRRU 239,0: PLO 


2030 PLOT 111,75 
T 111,100: DRRU 
2040 PLOT 120, 

T 120,94: DRRU 
2500 PLOT 8,168 

T 8,159: DRRU 239,0_ 

2505 PRINT RT 1 ,1;"—— E N . 

R R T R ■■■■■" RND X<>15;RT 1, 
2;" USO I T R " RND 

X = 15: GO TO 2550-1700*Cy=0> 

2510 PLOT 64,136: DRRU 127,0: PL 
OT 64,127: DRRU 127,0 
2515 PRINT RT 5,12,"ENTRRTR" RND 
X < >15; "USCITR" RND X=15 
2550 GO TO 920 

2600 LET r = i *4*1 : PLOT b(q,D,C( 
q, r ) 

2610 FOR n =1 TO 3: DRRU b(q,r+n) 
,c(q,r*n): NEXT n 
2620 RETURN 

2650 PLOT 124,84: DRRU 7,0: DRRU 
0,7: DRRU -7,0: RETURN 
3000 GO SUB 3950: PLOT 0,8: DRRU 


3010 PRINT RT 0,4;"Sei uscito in 

tosse";RT 10 , 4 ;"Hai visto 
";p;"volte la pianta" RND p<>1 
3020 INPUT "Premi h per la pìant 

a del labi- rinto, oppure. y p 

er giocare di nuovo - “;q$ 

3030 IF q$="B" THEN CLS : RRNDOM 
IZE USR 60905: PRINT RT 0,0,,. I 
NPUT "Preti y per giocare di nuo 
vo - “;q$ 

3040 IF q$="y" THEN CLS : GO TO 


DIM d$r4,5.); DIM nj*r5,4.*; £V 
IH b(4,20): DIM C(4,20) 

3550 POKE 60932, INT (Jt/256): POK 

E 60931,B-INT (te/256)*256 

3560 FOR n=62640 TO 62735: POKE 

0,0: NEX T n_„ ........ 

"3570 RRNDOHTZE USR 66930 

GESTORE 3900: FOR n=1 TO 4; 
d$(n): FOR i=1 TO 20: RERD 
b (n , i ) : RERD C (n , i ) 

3610 NEXT i: BEEP .2,0: BEEP .2, 
10: NEXT n 

3620 FOR n =1 TO 5: RERD n*(n): N 
EXT n: RETURN 
3896 REH Grafica 

3900 DRTR "UEST",8,0,56,41,0,93, 
-56,41,64,41,31,23,0,47,-31,23,9 
5,64,16,11,0,25, —1.6,1.1 , ili , 75,9 , 
6,0,13, -9,6,120,81,4,3,0,7, -4,3 
3910 DRTR "SUD",8,41,S6,0,0,93,— 
56,0,64,64,31,0,0,47,-31,0,95,75 
,16,0,0,25,-16,0,111,81,9,0,0,13 
,—9,0,120,84,4 , 0,0,7,—4,0 
3920 DRTR "NÒRD",247,0,-56,41,0, 
93,56,41,191,41,-31,23,0,47,31,2 
3,160,64,-16,11,0,25,16,11,144,7 
5,-9,6,0,13,9,6,135,61,-4,3,0,7, 
4,3 

3930 DRTR "EST",247,41,-56,0,0,9 
3,56,0,191,64,-31,0,0,47,31,0,16 
0,75,-16,0,0,25,16,0,144,81,-9,0 
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. 


, 0 ,13,9,0,3.35,04- , -4 , 0,0,7,4- , 0 
394-0 DRTR M l5t. ,, / , 2nd. M ,"3 rd. M < " 


4 th . " / **Sth . “ 

3950 PRINT RT 0,1 ; 
X R I N T O 
3960 PLOT 8, 


• • 



L R B 


RU -8,0: DRPU 0 


ORRU 255/0 : DRRU 0,-17S: D 

ball: LET Cai 


LET fa18 


PEPO a$ 


t jl w o • L/nnw jk ww / 

RPU -8,0: RETURN 
4000 LET a a10 
2: LET dal3. LET e = 

4010 FOR na0 TO 20: 

4020 FOR ini TO 16 

4030 POKE 60904 +n *16 + i , URL a % ( i * 
2-1)*16+URL a$(i*2) 

4040 NEXT i: NEXT O 

4045 REM Cambio schermi (USR 609 

05) Caricamento bits dedalo 

caricamento schermo (US 

R 60930) 

4050 DPTR “Ilf0d22100400618C5060 
07e fSla77f1" 

4060 DPTR “ 12231310 f 6c 110 f 0C9210 
0001130f20e M 

4070 DRTR “ 50060*6*3 e 0012 C 
e0112C 60613 ** 

4080 DRTR “10f1230d20e6002110f21 
1 f 0d20e 0306 ** 

4090 DRTR “08e5c506003e00Cb46280 
23e f f 121323** 

4100 DRTR “10f3cl052803ell8eS0d2 
0e3ele le 1c9“ 

4105 REM Dedalo n. 1 „ 

4110 DRTR "7 f f f ff f f5224412146a91 

C6d52eaa2a1“ 

4120 DRTR *'5e8a2abf403bea2155c00 

tt 

155SÌS b95c4ea.a f55*28 


4-13© DRTR 
C81715c6bad“ 

4-14-0 DRTR *• 4-757882978053 f • bi7594 


• • 


4150 DRTR ** 

0497 fffffff" 

4155 REM Dedalo n. 2 
4160 DRTR "7f ffTfff 48S820215eaba 
fad400ab0a5“ 

4170 DRTR 


• • 


• I 


4180 DRTR “ i'C3d©btb436176®97c7f C 
77b41802c51" _ _ 

4190 DRTR “56b7a395S0a4183dl7bSC 


• • 


4200 DRTR **519d C ba95d54282546518 
3497 fffffff" 


4205 REM Dedalo n. 3 

4210 DRTR "7fffffff4500909155ba a 

655448a08c9“ 

4220 DRTR **5adbaa23423916a95d866 
0ab41554e49“ 

4230 DRTR “1C 55515545a 59d9555154 
0215d707fCd“ 

4240 DRTR “6407803546f8ae851882e 
2bd46a 63611** 

4250 DRTR **542888b559a66a8542110 
2597f/f fff f“ 


* *LRB IR INTO * * 


Trova la tua via nel dedalo. 
Muovi un passo avanti con o. 


Usa i tasti cursore per cambiare 
dì rezione: 

5 = ovest 8 « Est 

e a sud 7 a Nord 


Se ti perdi premi h per avere 
una pianta del labirinto. 

(Disponibile solo 5 volte). 


R T R 



I 






JL 
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SI 


BE' 


mmm 


ut 


•ni rr z 



•Hirr 


LJL 




f • 


I 7 


f • 


j 





6 P0KE53288,6 ■ P0KE53281,6 = PRIHT“n*" ; 

7 PRINT"MM«" 


10 

PRINT" 

••••••••• 

MMM 



11 

PRINT" 

MIMMI» 

MI II 

MI 


12 

PRINT" 

•Il 

MI •• 

••• 


13 

PRINT" 

MI 

MI II 

MI 


14 

PRINT" 

MI 

•Il II 

1111111 " 

15 

PRINT" 

MI 

MI II 

MI 


16 

PRINT" 


MI II 

ttt 


17 

PRINT" 

•Il 

MI II 

MI 


18 

PRINT" 

MI 

MMM 

•§•••••" 


20 PRINr’WMBWM IHDELTR BIT SHOP" 

22 PRIHT"W VIfi VERDI 26/28 fiLBfiHO" 

25 PRINT" MTEL. 9324040" 

30 FOR11 = 1TO3000 = NE/T :PRINT" 3" ; 

90 L$="-" 

95 CH$="," 

99 ZZ$=" " 

160 PR I NT " ZI" ; : GOSUB10000 

170 PRINT"1 ■ GESTIONE ARCHIVIO" 

180 PRINT"WmiKWtìa 2 ■ CREAZIONE ARCHIVIO" 

190 PR I NT " MSD»MM»»»»IQUALE ?" ; = GOSUB9000 

192 IFR<1THEN160 

193 IFR>2THEN160 

194 PRINTR 

195 IFR=2THEN440 

220 INPUT"M«WB®9ARCHIVIO DA RICERCARE";NHT:GOSUB8000:GOSUB900 
250 R/=0:FORI = 1T0255:CLOSEI :NEXT:FF=1 :GOSUB750 

260 GOSUB7000 : PR I NT " M" ; : FOR I = 1T09 : F'R I NT I ; " »l" ; I T$ il > : NE/T : GOSUB600 


290 PRINT") 



PRESENTI";ND; 

300 PRIHT"«RECORD LIBERI" ; L/-ND 

305 PRINT" .- r-- 

310 PRINT" I «3 1 ■ ESAMINA»»»! I Ila 5 ■ 
315 PRINT" I-1- 

320 print" mia 2 ■ r i cerca w»»i mia 6 ■ 

PRINT" I-1- 


II 


ORDINA»»»»»»ll 

-. 


Il • 


OOc; 

V 


330 PRINT" mia 3 ■ IMMETTI»»»»! mia 7 ■ 

333 PRINT" I-1- 

335 PR I NT " mia 4 ■ ELIMI NA»»»»I IDia 
340 PRINT" ‘-*- 


STAMPAW»»»»»I I " ; 

- 1 "; 

MODIFICA»»»! I"; 

-IH; 


Q 


FINE»»»»»»»II 

_I M • 


II 


370 INPUT" »»»»*»»»»»»K!UALE " ; R : I FR< 1 ORR>8THEN250 
400 ONRGOTO8010,2080 , 3000,4088,5080,6000■1000 
418 GOSUB800 •' GOSUB750 : PR I NT " 3" : END 
440 INPUT " MSBWNOME NUOVO ARCHIV IO".: NH$ : GOSUB8008 

460 I NPUT" «NUMERO DI CAMP I MASS IMO :©■" NCT : NC=VAL < HC$ > : NCf=" " : IFNC>9THENHC=9 
465 INPUT"WTAPE COUHTER";TC$ : TC=VAL(TC$> 

470 IFTCC0ORTO999THEN160 
475 PRINT"3" 
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480 FORI = 1 TONO : PRINT"WS CAMPO NUMERO ; I INPUT"LUNGHEZZA »l" LRf 

481 LRX < I)=VAL < LR$) 

485 I FLRX < I >>36THENLRX< I > =36 

490 INPUT" MJOME"; IT$ <I> : IT$ <I)=LEFT$ <IT$<I>,30> 

505 NEXT : FRINT 

510 FORI = lTONC:LT=LT+LRX<I):HEXT: IFLT=0THEN160 

515 FRI NT " 3M*D9«k»Ìl*l CREATO NUOVO ARCHIV10 " : PR I NT : GOSUB7001 

516 PR I NT " «NUMERO BI CAMP I" ; NC ; : PR I NT " «RECORD LI BER I" : G08UB755 : PR INTLX-NB ; " M" 

517 FORI = 1T09 : PRINT">k»l" X ;ITf < I > : NEXT : G03UB755 

518 PR I NT " M«W»»Mk**»kÌFROSEGU I S/N " : GOSUE10000 : GOSUB9000 
550 IFR$="S"THENNB=0:G0SUB744:GOTO250 

560 RUM 

600 RETURN : REM- 

718 PRINT-ar'r'S" 

720 FORL=1TONO :PRINTL;DB$<I,L > : NEXT: RETURN 

740 GETA$: IFA$=""THEN740 

741 RETURN 

744 DIMDD$<LX,NC NC >: RETURN 

750 GQSUB20000 : RETURN 

755 FR=FRE<0): IFFRC0THENFR=FR+65536 

758 X1=FR-1024-11«NC : X2=LT+3+3*NC 

760 LX=INT(X1/X2>-2 : RETURN : 

• TsP 

770 FORP= 1TOLRX < J ) : L2$=M ID* < DD* < K, J >, P, 1 ) 

775 IFL2T="-"THENDDT<K,J > =LEFT$<DDt<K,J>,P-1>: RETURN 

777 NEXTP 

778 RETURN 

800 GOSUB7000 : PR I NT " «»BP»»BPERAZ IONI ESEGU ITE": PR I NT " MOMMI a 1 ■ CREAZI OHE " 

802 PR I NT " OMMia 2 ■ CONSULTAZIONE" : PRINT"«MMia 3 ■ AGGIORNAMENTO" 

803 I NPUT " mtknnEtUALE "R : I FR<0ORR>3THEN250 
805 IFR=2THENRETURN 

807 PRINT"IWtkkECRITTURA DATA FILE" 

808 PR I NT " WikUTAPE COUNTER A " i TC : PR I NT : G0SUB6510 : GOSUB740 : F'P I NT 

814 OPEN1 , 1,2,NNT 

815 PR I NT# i, NC ; ", " ; lt ; ", " ; tc ; ".. " ; LX ; ", " 

820 FORI=1TOHC=PRINT#1,ITT<I>;",";LRX<I>;",":NEXT 
835 PR I NT# 1 , NB ; ".. " 

840 IFNB=0THEN860 

845 FORI = 1TOND:FORL=1TONC:PRINT#1,BDf<I,L);",":HEXTL, I 
860 CLOSE1: RETURN 

900 GOSUB7000 : PR I NT "»*»ÌLETTURfi DATA FI LEM" : G0SUB6510 : DOSI IB740 
910 OPEN1,1,0,NN* 

912 PR I NT " J»ÌW»»»ITR0VRTO DATA FILE DIM" : GOSUB7001 : FORWW= 1TO2000 : NEXT UN 

915 INPUT# 1 , NC.. LT, TC, LX : G0SUB744 

925 FORI = 1TONC: INPUT#1,ITT(I>,LRX<I>:NEXT 

935 INPUT#1 > ND 

945 FORI = 1 TOND : FORL= 1 TONC : I NPUT# 1.. DD'f < I.. L> : NEXTL, I 
955 CLOSE1 : RETURN 

1000 GOSUB70O0:PRINT" f>»**»ESAME MODIFICA RECORD" 

1030 R=0 : I NPUT " :?>**»»FECORD NUMERO" ; R 
IFR<1ORR>NDTHEN250 

I=R:PRINT :GOSUB720:PRINT" )»*Ì»FETURN=MENU"" 


1035 
1045 


1060 R=0 : I NPUT " >»»»**»JUMERO DEL CAMPO";R: IFR>NCTHEH250 




IFR=0THEN250 
PRINT"M" ; I J $<R > 

1100 PRINTTAB<2)LEFT$<L«.LRX<R> > 

1110 i nput" rr ;dd$ <i ,r >;dd* <i ,r > =left$ < dd$ <i, r>,lrx < r> > 

11 30 G0SUB769:GOTO250 

2000 GOSUB7000:PRINT 1 "BRICERCA RECORD»" 

2030 FORI = 1T09:PRINTI ; ITf <I> =NEXT 

2060 INPUT"SCAMPO DI RICERCA";R: IFR<10RR>NCTHEN250 



















2080 


2110 

2120 

2130 

2160 

2170 

3000 

3040 

3050 

3080 

3085 

3100 

3120 

3130 

3150 

3160 

3165 

31S0 

4000 

4040 

4050 

4060 

4070 

4080 

4090 

4095 

4100 

4110 

4120 

4130 

4140 

4150 

5000 

5 0 0 

5040 

5060 

5062 

5065 

5090 

5100 

5110 

5115 

5117 

5129 

5130 
5140 
5180 
5190 
5200 
6000 
6001 
6002 
6003 
6010 
6012 
6020 
6025 
6030 
6035 
6100 


PRINT : PRINTIT*< R > : INPUTK* : K*=LEFT* < K$,18 > 

PRINT"3"JIT* < R >:PRINTLS 
FQR 1 = 1 TONI! 

IFK$=LEFT$<DD$(I, R>,LEM <K$>)THEH2160 
NEXT : GOTO250 
G0SUB718 •' GOSUB740 
PRINT : GOTO2130 

GOSUB7000:PRINT"MIMMISSIONE RECORD";ND+1 : IFCLX-ND+1>C0THEH250 
NR=NB+1 .. 

FOR J= 1TONC : PR I NT : PR I NT IT $ < J > : L1 *=LEFT* < L$, LR/J < J > > : PR I NTTfìB < 2 ) L1 $ 

INPUT" 1" i DD$< HR, J> : DD$< HR, J > =LEFT$< DD$<NR, J) , LR’i< J> > = K=NR : GOSUB770 
I FDD$ < NR, J ) = ""THENDD$ < NR, J)=LEFT$ < ZZ$, LR’i< J > > 

NEXTJ: I=NR:GDSUB7000:PRINT"«RECORD NUMERO";NR:PRINT :GOSUB720 
PRINT" «WP-PROSEGUI S-STOP" 

PRINT"C-CORREGGI”: INPUT"» QURLE"; 82$ 

I F82$= " P " THENGOSUB7000 : ND=NB+1 = GOTO3000 
I FS2'$= "8" THENND=HD+1 = GOTO250 
IFS2$="C"THEN3000 
GOTO250 

GOSUB7000 : PR INT " IIIIIINCL IMI NfiZ I ONE RECORD " 

PR I NT " »»*Ì»**FECORDS PRESEHTI " ; ND 
INPUT 11 «ViiiiMRECORD NUMERO" ;R 
IFR>NDORR<1THEN250 
I=R:PRINT :GOSUB720 

PR INT " :?>**H>P*E-ELIMI NflZI ONE RECORD" 

FR I NT " W W»B>H-MENU " " 

I NPUT" «tPikiiiPIQURLE " ; 84$ 

IFS4$="E"THEN4120 

GOTO250 

I=R 

IFI>HD-1THENND=ND-1 :GOTO250 

FORL=1TONC:DD$<I,L>=DD$ <1 + 1,L>:NEXT 

1 = 1 + 1 :G0T04130 

GOSUB7000:PRINT"MORDINfiMENTO RECORDSW" 

FORI = 1T09 : PRINTI ; IT$ <I>:NEXT 
M1 =ND 

PRINT" MORDINflMEHTO SECONDO" : INPUT"MIL CAMPO NUMERO";R 
IFR<1ORR>NCTHEN250 
PRINT"M"IT$ < R> 

M1 = INT <M1/2>: IFM1=0THEN250 

M2=ND-M1 :M3=1 

M4=M3 

CH$=DD$<M4,R> 

IFfiSC< CH$)>47fiNDfiSC < CH$ >C57THEN50120 
M5=M4+M1 : IFDD$< M4, R ><=DD$ < M5,R > THEN5190 
FORI_= 1 TONC 

K$< L> =DD$< M4,L>'DD$< M4, L >=DD$ <M5,L > : DD$< M5, L >=K$ <L >:NEXT 
M4=M4-M1:IFM4>=1THEN5120 
M3=M3+1 : IFM3>M2THEN5090 
G0T05110 

GOSUB7000 : PR I NT " «MODfiL I Tfi •' DI STAMPA" : PR I NT " MM1 -81NGOLO RECORD " 

PRINT"M2-1UTERO ARCHIVIO": INPUT"Mtì QUALE";R 

IFR<1ORR>2THEN250 
IFR=1THEN6100 
GOSUB6500:GOSUB740 
IS$="RECORD NUMERO" 

FORI = 1TOND:0PEN4, 4 :CMD4:PRIHT#4,CHR$ <16 >,18$,I :PRINT#4 
FOR ,T= 1 TONC 

PRINT#4,CHR$<16 >, IT$ <J>, CHR$<16>"40"DD$<I,J>:NEXTJ:PRINT#4:CL0SE4: 
GOTO250 

I NPUT " «RECORD NUMERO "R : I FR< 10RR>NDTHEN25O 




















JEXT 



_ 
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COMMODORE 64 
















6110 GQSUB6500 : COSI. IB749 : 0PEN5,4 : CMD5 : PRI NT#5 

6150 FORJ=1TONO :PRINT#5,CHRf<16>,IT$(J>,CHR*<16>"40"DD*<R,J >•NEXT:PRINT#5 

6160 CL0SE5:GOTO250 

6500 PRINT"ACCENDERE LR STAMPANTE" 

6510 PRINT" SPREMERE UH TASTO SE OK":RETURN 

7000 PRIHT'M"; 

7001 L=LEN < NN$ ) : L=I NT < < 49-L >/2 > : PR I NT TRI: < L > NN* : RETURN 
8000 HN$=LEFT$<HH$,19 >: RETURN 

8010 GOSUB7000 : PRINT" PESAME IUTERO ARCHIV10" 

8015 I NF'UT " MDR RECORD NUMERO " ; R : I FR< 10RR>NDTHEH250 

8020 FORI=RTOND:PRINT"MS"I" Etì":G0SUB720:PRINT" MI-MENU"" : GOSUB740 

8025 IFR#="M"THEN250 

8030 NENT 

8040 GOTO250 

9000 GÈTRT:ì FR#=""THEN9000 
9005 R=VAL < Rf > : RETURN 

10000 PRI NT" SS_ 

10010 PRI NT "S CBM-64 TAPE DATA BASE E"; 

10020 F ORN= 1TO17 : PR I NT " I !"; : NE NT 

10030 PRI NT"-" 

10040 RETURN 

20000 SI=54272■FL=SI•FH=SI +1 :E=SI+4 = A=SI+5 :H=SI+6 ■ L=SI+24 
20100 POKER.. 16+9 
20200 POKER, 44-16+4 

20300 POKEL ,15: POKEFH, 100 : F'OKEFL, 293 

20400 P0KE54276,17 

20500 FORZX=1TO199 : NENT 

29609 P0KE54276,9 : RETURN 

59000 REM S.ORDINAMENTO V. NUMERICHE 

50099 M1 = I NT (. M1 /2 > : IFM1 =9THEN250 

59100 M2=ND-M1 : M3=1 

50119 M4=M3 •• M5=M4+M 1 

50120 I FDD# < M4, R > ODD# < M5, R > THEM50199 
59130 FORL=0TONC 

59140 K$<L >=DD#<M4, L >:DD* <M4,L)=DD$<M5,L >:DD* <M5,L > =K$ <L >:NEXT 
50180 M4=M4-M1:IFM4>=1THEN58120 
50185 G0T059195 

59199 IFLEN<DD#<M4,R>>>=LEN<DD#<M5,R >>THEN58130 
59195 M3=M3+1 : IFM3>M2THEN5909G 

59200 GOTO50110 








± 


r 


7f: 


BLK 


WHT 


RED 


CYN 


PUR 


QRN 


BLU 


YEL 
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W\ 
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7F 


yHfflVBDDWBglV 
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CTRL 
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7T 


© 


71 


RSTDW 


RUN 

STOP 


ISHIFT 

LOOK 


y 




/ T \ 


yBByHBYBBvBafajyDcmiByiiayaDV 


H 






RETURN 


SHIFT 


V 


7 


7 


7F 




>IS- 


7F, 


7 




SHIFT 


7\ 


CRSR 


Ps 


71 


r i 


t 2 


71 


f 3 


f 4 


f 5 


f 6 


f 7 


f 8 
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Vi trovate all’ingresso di una grande stanza cospar¬ 
sa di ostacoli e avete pochi secondi per rendervi con- q 
to della loro disposizione ... poi vi verranno bendati 
gli occhi. 

Guidati solo dal vostro udito e con meno di 50 passi 
cercate di guadagnare l’uscita dalla parte opposta 



10 reh *************************** 


20 

REM 

* 


* 


30 

REM 

* 

MOSCA-CIECA 

* 


40 

REM 

* 


* 

ISTRUZIONE 

50 

REM 

* 

0RIC-1 

* 


60 

REM 

* 


* 

Usare i 4 tasti cursore per il movimento nelle quattro 

70 

REM 

************** ************* 

direzioni. 

80 

REM 


• 




# 

# 

♦ 


81 


















































































































































90 GOSUB 800 
120 REM 
130 INK 0:CLS 
132 PRINT SPRINT 

134 INPUT M LIUELLO DIFFICOLTA’ C1-5D"JLD 

135 IF LD<1 OR LD>5 THEN 134 

136 LD=LD/10 
138 CLS 

140 PRINT CHR$C 17 3 

144 REM 

145 REM X DEFINIZIONE CARATTERI X 

146 REM 

150 FOR J=47032 TO 47039 
160 READ A 
170 POKE J , A 
180 NEXT J 

190 DATA 63,63,63,63,63,63,63,63 

194 REM 

195 REM X UALORI INIZIALI * 

196 REM 
200 MU=50 
220 C=18:R=26 

224 REM 

225 REM X DISEGNO OSTACOLI X 

226 REM 

230 FOR J =2 TO 25 

240 FOR K=1 TO 38 

250 IF RNDC13>LD THEN 270 

260 PLOT K,J,119 

270 NEXT K,J 

280 WAIT 200 

290 FOR J=1 TO 20 

300 PLOT C,R,"X" 

310 WAIT 25 
320 PLOT C,R," " 

330 NEXT J 

340 PAPER 0 • INK 0 

344 REM 

345 REM X LOOP PRINCIPALE X 

346 REM 

350 D$="MOSSE RIMASTE = 11 

» 

360 PLOT 10,0,D$ 

362 PLOT 0,0,2 

364 REM 

365 REM X SCHERMO X 

366 REM 
370 K$=KEY$ 

372 IF K$="" THEN 370 
376 MU=MU-1 
378 IF MU=0 THEN 550 
380 CO=C. 

390 RO=R 

4S0 IF K$=CHR$ C83 THEN C=r 1 
410 IF K$=CHR$C93 THEN C=C+1 
420 IF K$=CHR$C103 THEN R=R+1 
430 IF K$=CHR$C113 THEN R=R-1 


STR$CMU3 + " 


ti 


440 

IF R>26 OR 0 37 OR C<2 

THEN 500 

450 

IF R<2 THEN 670 




460 

IF SCRNCC,R3 = 

119 THEN 

500 


470* 

MUSIC 1,3,6,0 


» 



480 

PLAY 1,0,1,1000 




490 

GOTO 350 





500 

• 

MUSIC 1 ,1,3,0 





510 

PLOT 1,0,1,1000 




520 

c=co 





530 

R=RO 





540 

GOTO 350 





544 

REM 





545 

REM X INSUCCESSO X 




546 

REM 





550 

FOR J = 12 TO 1 

STEP -1 




560 

MUSIC 1,2,J,0 





• 570 

PLAY 1,0,1,1000 




580 

WAIT 25 





590 

NEXT J 





600 

PLOT C, R, “X*’ 





610 

PAPER 7: INK 0 





620 

FOR M=1 TO 22 





630 

PRINT 





640 

NEXT M 





650 

PRINT CHR$C173 




660 

GOTO 730 





664 

REM 





665 

REM X SUCCESSO X 




666 

Ren 





670 

FOR J=1 TO 12 




680 

MUSIC 1,3,J,0 




690 

PLAY 1,0,1,1000 




700 

WAIT 25 





710 

NEXT J 





720 

GOTO 600 





730 

•END 





800 

CLS 





805 

INK 4 





810 

PRINT 





820 

PRINT 





830 

PRINT" X X 

w O w w O w 

^ ^ 

XXX 

XXX" 

840 

PRINT" XXXXX 

XXX 

X 


X X " 

850 

PRINT" XXX 

>7/ V vy 

^ 

X 


XXX" 

860 

PRINT" X X 

XX X 

X 


X X" 

870 

PRINT" X X 

^ ^ ^ ^ ^ ^ 

^ ^ 

XXX 

X X " 

880 

PRINT 





090 

PRINT 





900 

PRINT" XXX 


XXX " 

910 

PRINT" X 

XX X 


X 

X" 

920 

PRINT" X 

X XXX X 


XXX 1 

930 

PRINT" X 

X X X 


X 

X' 

940 

PRINT" XXX 


X 

X ,: ’ 

950 

PRINT 





960 

PRINT 





980 

WAIT 500 





990 

RETURN 






8 <? 



















MPF II 


¥ 





Sfidate il vostro MPF in uno dei classici giochi a scac¬ 
chiera, forse conosciuto dai più con il nome di 
«OTHELLO» o «REVERSI». 

All’inizio della partita vi sarà chiesto: 

DO YOU WANT FIRST! (Y/N) 
(Vuoi avere tu la prima mossa?) 

poi il computer stamperà: 


O DIM Z (8,8) , Y7. (60) 

1 TEXT : HOME : HGR :CT = O 

4 SY = 13: SX = 6:CX = 1: FOR F' = 49 T0 
56: GOSUB 63020:SY = SY + 18: NEXT 

5 WD = 20:HI = 10:CX = 0:CY = 0:SX = 1 
O: SY = O: F'H = 24: PL = 0: GOSUB 63 


«O» IS ME («O» sono io) 
«X» IS YOU («X» sei tu) 


e quindi: 


WHAT’S YOUR MOVE? 
(Qual’è la tua mossa?) 


010 




40 

HCOLOR 3 



41 

FOR I = 68 

TO 

212 

42 

HPLOT 1,11 

TO 

1,1 

43 

HCOLOR 6 



44 

FOR I = 11 

TO 

155 

45 

HPLOT 68,I 

TO 

212 

70 

T 

FOR I = 1 

TO ( 

60: 


NEXT 


NEXT 


Per mettere la pedina nella posizione desiderata ba¬ 
sterà che ne indichiate le coordinate orizzontali e ver¬ 
ticali. Quindi le pedine avversarie che si troveranno 
tra le vostre, già presenti sulla scacchiera, e la nuo¬ 
va, verranno mangiate e rimpiazzate. 

Vince chi, completata la scacchiera, avrà il maggior 
numero di pedine. 

Buon divertimento!! 


80 FOR I = 768 TO 845: READ X 


90 

POKE 

I, X: 

NEXT I 

91 

POKE 

232, 

0: POKE 233, 

97 

FOR 

J = 1 

TO 8: FOR I 

, J> 

= 0: 

NEXT 

I, J 

105 

SCALE= 1 

: ROT = 0 

106 

LET 

PP = 

0 

1 10 

LET 

NI"/. 

= 4:N27. = 4: 

800 




120 

LET 

N17. 

= 5:N27. = 5: 


GOSUB 



_ 


83 


GOSUB 800 




























130 

LET N17. = 5-.N27. = 4:N37. = 2 

: GOSUB 

412 

LET 

117. = 0:127. 


1 : GOSUB 600 

800 



414 

LET 

117. = 1: 127. 

zz — 

1 : GOSUB 600 

140 

LET N17. = 4:N27. = 5: GOSUB 

800 







150 

VTAB (23): INPUT "DO YOU WANT FIR 

416 

LET 

117. = - 1: 

127. = 

0: GOSUB 600 

ST? <Y/N) ";a* 








151 

HOME 


418 

LET 

117. = 1: 127. 

= 0: 

GOSUB 

600 

152 

HTAB 28: VTAB (22): PRINT 

CHR* ( 

420 

LET 

117. = - 1: 

127. = 

1: GOSUB 600 

34) ; 

"0"5 CHRS (34);" IS ME" 








154 

HTAB 28: VTAB (23): PRINT 

CHR* ( 

422 

LET 

117. = 0:127. 

= 1: 

GOSUB 

600 

34) ; 

"X"? CHR* (34);" IS YOU" 


424 

LET 

117. = 1: 127. 

= 1: 

GOSUB 

600 

155 

POKE 33,27 


425 

IF 

X2 = 10 GOTO 

430 



156 

IF a* = "Y" GOTO 300 


426 

LET 

A* = "!f!": 

GOTO 

330 


200 

REM 


430 

LET 

PP = pp + i 




205 

LET X2 = 0 


432 

IF 1 

PP = 60 GOTO 

1000 



210 

LET I = 1:N37. = 1: HOME 


434 

GOTO 200 




220 

LET NI 7. = Y7. (I) / 10-.N27. = 

Y7. ( I ) - 

600 

LET 

137. = 117.: 147. = 

127.: XI 

= 0 




602 

LET 

157. = NIX: 167 = 

N27. 


N17. 

* 10 


610 

LET 

157. = 157. + 

I 17.: 

167. = 

167. + I 

225 

IF Z(N1X,N2X> = 0 GOTO 250 

• 

27. 






230 

IF I = 60 GOTO 1000 


620 

IF 

157. < 1 OR I 

57. > 

8 OR 167. < 1 


240 

250 

600 


LET 1=1+1: 
LET 117. = - 1 


GOTO 220 
127. = - 


1 : GOSUB 


252 

LET 

117. = 

0: 127. 

= - 1: GOSUB 600 

254 

LET 

117. = 

1: 127. 

= - 1: GOSUB 600 

256 

LET 

117. = 

-1:1 

27. = 0: GOSUB 600 

258 

LET 

117. = 

1: 127. 

= 0: GOSUB 600 

260 

LET 

117. = 

-1:1 

27. = 1: GOSUB 600 

262 

LET 

117. = 

0: 127. 

= 1: GOSUB 600 

264 

LET 

117. = 

1: 127. 

= 1: GOSUB 600 

265 

IF X 

2 = 10 

GOTO 

272 

270 

GOTO 

230 



272 

LET 

PP = PP + 1 


274 

IF PP = 60 

GOTO 

1000 

300 

REM 




305 

LET 

X2 = 0 



3 0 7 

VTAB 

(22) : 

CALL 

- 958 

320 

VTAB 

(23) : 

INPUT 

"WHAT f S YOUR MOV 

E? " 

; A* 




321 

IF 

LEFTS 

(A*,1) 

= "R" GOTO 10 

322 

IF 

LEFT* 

(A*,1) 

= "P" GOTO 1000 

330 

IF 

LEN (A*) < 

> 2 THEN PRINT 


CH 


167. 


8 THEN RETURN 


630 

IF Z(I57., 

167.) = 0 

640 

IF Z ( 157., 

167. ) = N 

645 

LET 137. « 

10:147. 

650 

GOTO 610 


660 

IF 137. = 

117. AND 

TURN 

670 

LET 137. = 

117.: 147. 

671 

LET Gl7. = 

N17.:G27. 

672 

GOSUB 730 


680 

GOSUB 800 


681 

IF X2 = 10 GOTO 6 

682 

PRINT CHR* (7): 

0: NEXT SD 


690 

LET N17. = 

N17. + I 


RETURN 


RE 


= 1 TO 20 


47 . 

693 LET XI = O 
695 REM 
700 GOSUB 800 

704 FOR ZZ = 1 TO 10 

705 LET SD = PEEK 
( — 16336) 

706 NEXT ZZ 

710 IF XI = 10 THEN X2 = 10: 


( - 16336) + PEEK 


GOTO 920 


R* (7); CHR* (7): GOTO 300 


340 

LET A1$ = 

MID* (A* 

,1,1):A2 

* = 

MID 

$ (A* 

‘,2,1) 


• 



350 

LET Al = 

ASC (Al*) 

- 64:A2 

— 

ASC 

(A2*> 

- 48 





360 

IF Al < 0 

OR Al >8 

OR A2 < 

0 

OR 

A2 > 

8 THEN A* 

= "111": 

GOTO 330 



365 

IF Z(Al,A 

2) < > 0 

THEN A* 

Il 

111 

": GOTO 330 





370 

LET NI7. = 

I> 

■ ■ 

Z 

10 
X 

11 

A2:N37. = 

2 


375 

GOTO 410 





390 

IF XI < 

> 10 THEN 

A* = " ! ! 

1 •• . 

• 

GOTO 

330 






400 

GOTO 200 





4 10 

LET 117. = 

- 1:127. 

= - 1 : 

GOSUB 

600 







720 

LET NIX = 

NIX 

+ I17.SN27. = N27. + I 

27.: 

GOTO 695 



730 

IF N3X < 

> 1 

THEN RETURN 

740 

HTAB 15: 

VTAB 

(21)s PRINT "I MOVE 

s "| 

CHR* (64 + 

NIX) 

; CHR* (48 + N 

27.) 




750 

RETURN 



800 

REM DRAW 

SUBROUTINE 

810 

LET N4X = 

Z(NIX,N2X) 

820 

IF N4X < 

> 0 

GOTO "860 

830 

HCOLOR 3 



840 

DRAW N3X 

AT 5S 

» + N17. * 18,2 + N27. 


* 18 

850 LET Z(N17.,N2X> = N37.: RETURN 
860 IF N47. = N37. THEN XI = 10: RETURN 


870 HCOLOR 0 

880 DRAW N47. AT 59 + NI7. * 18,2 + N27. 
* 18 
















890 HCQLOR 3 

900 DRAW N3X AT 59 + NIX * 18,2 + N2X 
* 18 

910 LET Z (NIX, N27.) = N3X: RETURN 
920 LET NIX = G1X:N2X = G2X 
930 RETURN 

1000 PQKE 33,40: HOME 

1010 LET NIX = O:N2X = O 

1020 FOR J = 1 TO 8 

1030 FOR I = 1 TO 8 

1040 IF Z(I,J) = 0 GOTO 1070 

1050 IF Z(I,J) = 1 THEN NIX = NIX + 1 

: GOTO 1070 

1060 LET N2X = N2X + 1 
1070 NEXT li NEXT J 

1075 LET C* = " WIN...£> " 

1080 LET NIX = NIX - N2X 

1085 IF NIX = O THEN C* = " <<...TIE. 

..>> GOTO 1100 

1090 IF NIX > 0 GOTO 1100 

1095 LET C* = " <<_YOU WIN_>> " 

1100 HTAB 20: VTAB (22): F'RINT ABS ( 

NIX) 

1101 LET XX = 1 

1102 FOR X = 1 TO 6 

1104 HTAB XX: VTAB (24) ; 

1106 PRINT C*; 

1108 LET XX = XX - ( - 1) X 
1110 IF XX = 0 OR XX = 41 - LEN <C*> 
GOTO 1114 
1112 GOTO 1104 

1114 LET XX = XX + ( - 1) A X 

1116 NEXT X 

1118 FOR P = 1 TO 6 

1120 VTAB' (24): HTAB 1: CALL - 958 
1122 FOR X = 1 TO 100: NEXT X 


1124 

HTAB (41 

- LEN <C$>) / 2: VTAB 

(24) 

i 



1 126 

PRINT c*; 



1128 

FOR X = 1 

TO 

100: NEXT X 

1 130 

NEXT P 



2000 

HTAB 1 : VTAB 

(24): INPUT "AGAIN? 

" ; A* 
2010 

IF LEFT* 

(A* 

,1) = "Y" GOTO 1 

2020 

TEXT : HOME 


2040 

PRINT C*: 

PRINT : PRINT "SEE YOU 


LATER.": PRINT : PRINT : PRINT 
2050 END 




62021 DATA 11,81,18,88,31,61,13,83,1 
6,86, 38,68,33,63,36,66,41,51,14,8 
4,15,85,48,58,43,53,34,64,35,65,4 
6,56,42,52,24,74 

62022 DATA 25,75,47,57,32,62,23,73,2 
6,76,37,67,21,71,12,82,17,87,28,7 
8,22,72,27,77 

62023 DATA 2,0,6,0,40,0,9,9,9,36,60,6 

0 j 44 ji ò'j' ^ é)U , 6 j 6 j i »j>j ■! 6 ^ uiò ^ ^ ^ 

4,54,46,54,37 , 46,46,45 ,45,37,45 , 6 
0,37,37,36,36,36,0,12,12,12 

62024 DATA 12,12,12,31,27,27,27,27,2 

7.14.14.14.14.14.14.14.14.14.14.1 

4.14.31.27.27.27.27.27.12.12.12.1 
2,12,12,12,0 

63010 POKE 31,SV: POKE 8,PL: POKE 9,P 
H: POKE 24,HI: POKE 25,WD: POKE 9 
6,CT: POKE 97,CL: POKE 30,SX: POKE 29,CV 


: POKE 28,CX: CALL 5888:CT = 0: RETURN 
63020 WD = 1:HI = 8:CV = 1 :PH = 243:PL 
= (P - 32) * 8: GOTO 63010 


+ 

















Una utility semplice e di poche pretese ma che vi 
farà risparmiare del tempo; vogliamo ad esempio tro¬ 
vare i DATA dei carattei grafici da voi definiti? 


10 REM ****************** ***'******** 


20 REM * 
30 REM * 
40 REM * 
50 REM * 
60 REM * 


CONUERSIONE 06 NUMERO 


BINARIO A DECIMALE 


70 REM ***************************** 

80 REM 
90 REM 
100 CLS 
110 PRINT 
120 PRINT 
130 PRINT' 

150 PRINT" IMMETTI IL NUMERO BINARIO" 

160 PRINT 

170 PRINT”CPREMI ’ S ’ PER FERMARE IL PROGRA 
MMA3 " 

180 PRINT 
190 PRINT 

200 I NPUT"NUMERO BINARIO ;B$ 

210 PRINT 

220 IF B$="S" THEN 340 
230 N=1 
240 DC=0 

250 FOR J=1 TO LEN CB$3 


\ 




260 A$=MID$CB$,LEN CB*3-J+1,13 

270 IF A$="0" THEN 290 

280 DC=DC+N 

290 N=N*2 

300 NEXT J 

310 REM * STAMPA DECIMALE * 

320 PRINT"DECIMALE =” ;0C 
325 PRINT 
330 GOTO 200 
340 CLS 

350 PLOT 12,10, FINE PROGRAMMA" 
360 END 






































Siete intrappolati nella dimora di un Mostro Clepto¬ 
mane. Cercate di sfuggirgli raccogliendo nello stes- k 
so tempo i gioielli che, presi alle sue vittime, egli perde 
durante l'affannoso inseguimento. 

Riprendete fiato nascondendovi dietro la porta «E»; j 
il mostro non sarà in grado di percepire la vostra 
presenza. 

_ è 

GRAFICO DEL LABIRINTO 


digitare nel modo GRAFICO il tasto «H» e lo SPA¬ 
ZIO (SPACE). 



13-32 

40-50 

60-290 

300-410 

500-720 


valori iniziali 

presentazione del gioco 
grafico labirinto 
movimento uomo 
movimento mostro 



13 

REM 

MOSTRO 

15 

LET 

G=0 


15 

LET 

S=0 


20 

LET 

L = 15 


22 

LET 

C = 15 


30 

LET 

R =5 


32 

LET 

Bsl5 


37 

4.0 

CLS 

PRINfT fCT 

2 ,8; 

50 

PRIMT RT 






LLR CRSR 
E UI 
CORSO DEI 


ON FRUÌ PR 
l_R STRNZR 


MOSTRO QUESTO,HENTR 
,LRSCIR LUNGO IL PER 
IOIELLI. VOI DOVETE R 
GIOIELLI CECRNDO DI M 



\\ 



IL MO-STRO NON UI SC 
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PRINT 


140 PRINT 


PRINT 


160 PRINT 


190 PRINT 


310 PsRXNT 


240 PRINT 


570 PRINT 


290 PRINT 


300 REM MOUIMENTO UOMO 
310 LET L1*L 

320 i i» i C1 —C 

34.0 LET L=L+ (INKEY$a"5") - (INKEY 
♦a"?") 

350 LET CaC+(INKEY*a"S M )-(INKEY 
* = *•5") 

355 PRINT RT L , C; 

360 LET OaREEK fPEEK 16393+256» 
PEEK.16399) 

370 IP ©OS THEN GOTO 390 
375 LET C=C1 
380 LET L=L1 

390 IP 0*11 THEN GOTO 9080 
4.00 IF © a 151 THEN LET 5=5+1 
4-10 PRINT RT LI ,C1; **■"; RT L,C;" 

500 REM MOVIMENTO MOSTRO 
510 LET RI=R 
520 LET 61 a© 

530 LET RaR+VR<L)-VR»L> 

54-0 PRINT RT R,B; 

550 LET ©=PEEK (PEEK 15398+256» 
PEEK 16399) 

550 TP ©aia® THE» GOTO 9000 

570 IF RoRl RND ©oB THEN GOTO 

680 

580 LET R«R1 

590 LET B=B+(B<C)-(B>C) 

600 PRINT RT R,B; 

610 LET DaPEEK (PEEK 16398+266* 
PEEK 16399) 

620 IP 0=180 THEN GOTO 9000 
630 IP ©08 TMEN GOTO 680 
64.0 LET B=B1 _ 

680 PRINT RT RI,Bl; "O" i RT R,B;“ 


690 IP SxSsXNT (Sy-5) TMEN PRINT 
RT 0/10;S 

700 IP Lo 13 OR Co 15 THEN GOTO 
300 

710 IP INKEY*O"" THEN GOTO 300 
720 GOTO 700 
9000 PRINT RT RI , Bl; *'B'* 

9010 FOR Fai TO 18 
9020 PRINT RT L,C 
9030 PRINT RT L,C;'W 

904-0 NEXT P ______ 

9050 PRINT RT 21,8; "fffiMli" 

IP 5>G THEN LET G*S 
GOTO 18 


60 PRINT 


70 

60 PRINT 
MRX.a";G 
90 PRINT 

100 PRINT 


1Q PRINT 
120 PRINT 


400 

RT 0^ 0; ‘TE50R1 = 


fflWmvCWfwlwf fWlifJl III HTTi (VTTvnTTW i ' lUMfWIfwUTTi vVT, 


20 , 6 ; %% 


RT 




H C 


« % 























































lettori 


Nonostante la presenza dei computers nella vita di tutti i giorni 
sia ormai una realtà, la scuola italiana non sembra avere colto 
l'importanza di questa fondamentale innovazione tecnologica. 
Resteremo indietro, ancora una volta, rispetto ai paesi più pro¬ 
grediti? Quale sarà l’avvenire dei nostri figli di fronte ad un mondo 
che cambia e ad una scuola che non sembra andare al passo 

con i tempi? . ... . 

Anna Vinciguerra 

Roma 

» • 

List mi piace soprattutto perchè mette in condizione il lettore di 
sfruttare il proprio home computer attraverso l'immediata appli¬ 
cazione dei numerosi ed interessanti listati pubblicati. 

% 

E possibile pubblicare nei prossimi numeri della rivista dei lista¬ 
ti di più diretta applicazione scolastica? 

Desidererei, inoltre, che venisse riservata una più ampia tratta¬ 
zione alla parte teorica. 

Giuseppina Fratino 
S. Marco in Lamis (FG) 


Gentile Signo/a, 

le sue preoccupazioni sono legittime; tuttavia, se si deve 
dar credito, e non si vede il motivo di dubitarne, alle affermazio¬ 
ni fatte ad un recente convegno dal ministro della Pubblica Istru¬ 
zione Franca Falcucci, la scuola italiana si avvia ad affrontare 
con serietà tutte le complesse problematiche relative all'avven¬ 
to del computer. 

Perciò, non disperiamo anzitempo ... 

Ci sembra, fin da questo numero, di essere venuti incontro ai 
desideri della gentile lettrice. 


Complimenti, almeno noi del "Vie 20" aspettavamo una rivista 
come List! Purtroppo non è facile trovarla in tutte le edicole. Mi 
auguro che nei prossimi numeri oltre ai giochi verranno pubbli¬ 
cati anche altri listati del Vie 20, magari con delle espansioni di 
memoria, concernenti l'elenco clienti, la gestione delle merci, 
la guida telefonica e la soluzione di alcuni problemi matematici. 
Attenzione, però, non toccate i giochi! 

Aniello Morvillo 
Torre del Greco (NA) 


Caro Aniello, 

grazie dei complimenti e, vedrai, le tue aspettative non an¬ 
dranno deluse fin da questo numero! 

Hai visto quanti listati di giuochi nuovi ed interessanti e le inizia¬ 
tive che il List Club ha in animo di mettere in cantiere per i soci? 
Dal prossimo numero, poi, offriremo al lettore anche dei listati 
sugli argomenti che più ti stanno a cuore. 

Quanto alla difficoltà di trovare List in edicola, essa è dovuta al 
suo strepitoso successo che ha fatto esaurire in brevissimo tempo 
le copie distribuite agli edicolanti. 








Lo SC-3000 1 è in primo luogo un 
grande sistema didattico. Basta 
inserire un’apposita cassetta studio 
per sfruttare a fondo le numerose 
possibilità di questo computer che 
comprendono, tra l’altro, lo studio 
dell’inglese, della matematica, della 
chimica, per non parlare della materia 
oggi di maggior attualità, che pochi 
purtroppo hanno la possibilità di 
studiare a scuola: l’informatica. 

Con le cassette BASIC potrete 
utilizzare veramente a fondo le 
possibilità dello SC-3000 per lo studio 
e la pratica di questa materia: vi 
troverete, quasi senza accorgervi, a 
creare programmi di elaborazione 
grafica, di animazione, o per la 


soluzione di problemi matematici e 
scientifici, utilizzando il linguaggio 
BASIC il più diffuso nell’informatica 
dei mini e personal computer. Potrete 
realizzare animazioni e grafiche in 16 
colori diversi. O, se lo desiderate, 
potrete comporre e suonare musica 
scrivendola sullo schermo del vostro 
televisore. Potrete persino espandere 
il sistema con memorie esterne e 
stampanti. 



PER DIVERTIRTI CON I SUOI GRANDI GIOCHI 

PROGRAMMATI 


Scegliete lo SC-3000. 

Vi meraviglierete per la dinamicità e la 
ricchezza delle situazioni di gioco, la 
completezza della grafica, la finezza 
dei dettagli. 

Le cassette che vi offriamo sono 
numerose: Monaco GP, N Sub, Buck 
Rogers, Congo Bongo, Starjacker, 
Yamato, Orgus, Pop Flamer, Sindbab 
Mistery, Up’n Down, Safari Hunting, 
Borderline, Flipper, Super 
Locomotive, a cui si aggiungono i 
giochi sportivi come il baseball, il 
tennis, il golf. 



Non per niente lo SC-3000 è prodotto 
dalla casa giapponese SEGA, uno dei 
più grandi creatori di videogame a 
gettone. Lo SC-3000 vi offre la stessa 
qualità e la stessa dinamica di gioco 
dei suoi fratelli da bar o da sala-giochi 
perchè è un vero e proprio computer 
con una grande e potente elettronica! 












































Questi due bravi listati permettono di caricare un pro¬ 
gramma su cassetta, proteggendolo. 

LISTATO I (da salvare sul nastro prima del listato 2 
e del progranna principale) 

La linea 30 inibisce i comandi RU N/STOP/RESTO- 
RE/LIST; la linea 50 contiene le POKE per caricare 
il programma successivo 

LISTATO 2 consente l’esecuzione del programma 
mediante l’inserimento della parola chiave 


(PASSWORD). • 

La linea 25 (POKE 204,0) abilita il cursore; 
la 30 (POKE 204,1) disabilita il cursore; , 

la 50 (SYS 64738) determina il RESET del sistema ® 
nel caso la parola inserita non corrisponda a quella 
indicata precedentemente come “chiave”. ^ 

N.B. Quest’ultimo listato deve essere inserito all’ini¬ 
zio del programma da proteggere che pertanto do¬ 
vrà avere il primo numero di linea maggiore di 60. ^ 

Nel listato presentato la parola chiave usata è DEL¬ 
TA BIT (linea 50 del LISTATO 2) 




1 REM DELTA BIT COMPUTER SHOP 

2 REM HLBANO VIA VERDI 28 TEL.. 9324040 

3 REM PRGM BV FRANCESCO RITROVATO 

4 

5 REM PROGRAMMA NUMERO I 

10 REM PASSWORD PER COMMODORE 64 
20 REM CARICATORE DI PROGRAMMI 
30 POKEA08 > 2?f5 : 

35 REM INIBISCE RUN/STQP RESTORE LIST 
40 PRINT"CS" 

45 REMSTRMPR COL COLORE DELLO SFONDO 
50 P0KE631 * 131 : PQK.E632 >13 = POKE 198,2 

REM SIMIJLH LA PRES. DI SHIFT RUN/STOP 



READV. 








1 REM DELTA BIT COMPUTER SHOP 

2 REM Al BANO VIA G. VERDI 26/28 

3 REM TEL 9324040 

4 REM BV FRANCESCO RITROVATO 

5 REM 

10 REM ROUTINE RICHIESTA PASSWORD DA 

11 REM INSERIRE IN TESTA H UN QUALSIASI 

12 REM PROGRAMMA 

13 REM ABBINARE AL PROGRAMMA N 1 

15 PRI NT " mBMI" i 

16 PRINT"INS. PAROLA CHIAVE «-" 

17 print" ■■■■■■■■■rr ; 

20 FOR I-1T09 

25 BETA#:PQKE204,0:1FA»*""THEN25 
30 B»*B»+A» •’POKE204,1 : PRINT". "i 
40 NEXTI 

51 IF B*C>"DELTA BIT"THEN SVS 64738 
60 PRINT" OK": FURI «1TO5000 :NEXT 
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* 

a cura di Duccio ALFANO 



Il microprocessore è il centro di controllo del siste¬ 
ma, che coordina e seleziona il funzionamento degli 
altri componenti, con i quali è strettamente collegato. 
La funzione del microprocessore è chiaramente com¬ 
prensibile se si fa riferimento ad uno schema più - 
generale. 

Un qualunque sistema che voglia interagire con l’am¬ 
biente esterno deve poter compiere le seguenti ope¬ 
razioni fondamentali: 

1 ) raccogliere dati dall’esterno, selezionandoli op¬ 
portunamente e riaggregandoli in maniera da 
renderli utilizzabili: 

2 ) rielaborare questi dati, confrontandoli con altri 
eventualmente già acquisiti e conservando 
quella parte di dati nuovi che possa servire in 
un secondo tempo, e decidere come compor¬ 
tarsi di conseguenza; 

3) passare all’esecuzione, dopo aver riconvertito 
i risultati ottenuti in segnali accettabili dalla parte 
del sistema che deve direttamente influenzare 
l’ambiente esterno. 


Ad esempio, se un automobilista si trova di fronte 
ad un ostacolo imprevisto, dovrà: 

1 ) focalizzare l’ostacolo, escludendo dal campo 
visivo il panorama e tutto ciò che al momento 
non serve; tradurre il segnale luminoso, median¬ 
te il quale ha percepito l’oggetto, in segnali neu- 
ronici che, propagandosi nei giusti canali, pos¬ 
sano giungere al centro decisionale (cervello); 

2 ) confrontare l’informazione ottenuta con altre 
analoghe avute in precedenza (altri ostacoli del¬ 
lo stesso tipo eventualmente già incontrati al¬ 
tre volte), memorizzando le novità per un even¬ 
tuale uso futuro (non si mai), e decidere il tipo 
di azione da effettuare (sterzare, rallentare, pas¬ 
sare sopra l’ostacolo ecc.), e quale parte del 
corpo (braccio se si decide di sterzare, gam¬ 
ba se si decide di frenare, ecc.) debba metter¬ 
la in esecuzione. Supponendo che sia deciso 
di frenare, il cervello deve mandare i comandi 
opportuni alla gamba, segnalando, tra l’altro, 
di interrompere eventuali altri movimenti in at- 
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to, per dare la priorità alla frenata; 

3 ) l’organo preposto all’esecuzione deve interpre¬ 
tare correttamente i segnali giunti dal cervello 
e tradurli in atto, premendo il pedale del freno. 

Come si intuisce facilmente, per quanto drastica¬ 
mente semplificato, il processo in esame è assai com¬ 
plesso e risulta dall’azione armonica e coordinata di 
diversi sottosistemi tra loro collegati che costituisco¬ 
no il sistema completo. 

Per interpretare meglio il funzionamento può es¬ 
sere utile uno schema (fig. 1): 



Nel nostro esempio: 

SEGNALE D’INGRESSO 
SOTTO-SISTEMA DI ACQUISIZIONE 
DATI E CODIFICA (A) 

SISTEMA DECISIONALE E DI CON¬ 
TROLLO (B) 

SOTTO-SISTEMA DI MEMORIA (C) 
CANALI DI TRASMISSIONE (D) 

SOTTO-SISTEMA DI DECODIFICA E 
AZIONE (E) 

SEGNALE D’USCITA 


OSTACOLO 

OCCHIO 

CERVELLO 
ESP. PREC. 
SISTEMA 
NERVOSO 

GAMBA 

FRENATA 


Prima di procedere, vale la pena di osservare 
qualcosa. 

m 


1) Basta che uno solo dei sottosistemi A,B,C,D,E, 
non sia efficiente, per annullare l’efficienza del 
sistema nel suo complesso. 

Ad esempio un individuo dotato di ottima vista 


(A), di grande esperienza (C), molto intelligen¬ 
te (B) e con gambe robuste (E), ma con riflessi 
molto lenti (scarsa efficienza delle linee di tra¬ 
smissione D), pur avendo individuato corretta- 
mente il problema, avendo preso le decisioni 
giuste e avendo le possibiità di metterle in at¬ 
to, frenerebbe tardi, con spiacevoli conseguen¬ 
ze e vanificando le tante sue buone volontà. 
Pertanto, non esiste un componente del siste¬ 
ma che sia «più importante» degli altri, anche 
se si può correttamente parlare di maggiore o 
minore complessità. 

Il funzionamento di un calcolatore è molto si¬ 
mile, in linea di principio, a quello del «sistema 
uomo» ora analizzato (sebbene, per quanto 
complessa possa essere, una macchina rima¬ 
ne, almeno per ora, assai lontana dalla versati¬ 
lità ed adattabilità del più semplice sistema 
fisiologico). 
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Lo schema di fig. 1 potrebbe tradursi così (fig. 2): 
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2) Un’eventuale persona ferma al bordo della stra¬ 
da che assistesse alle peripezie del nostro au¬ 
tista, non osserverebbe niente altro che: a) c’è 
un ostacolo, b) la macchina si è fermata. Tutti 
i passaggi intermedi gli rimarrebbero sconosciu¬ 
ti. (Vero è che per la maggior parte degli scopi 
pratici questo è quanto può bastare). 

Nel caso del calcolatore, l’utente è, in un certo 
senso, paragonabile all’osservatore sul ciglio 
dela strada: batte il suo programma sulla tastie¬ 
ra e osserva il risultato sul monitor. Tutto ciò che 
succede in mezzo è per lui «trasparente». 
Anche qui, per molte applicazioni, questo è più 
che sufficiente (in fin dei conti nessuno si rifiu¬ 
ta di lavare i panni con la lavatrice o di guarda¬ 
re il televisore anche se ne ignora il funziona¬ 
mento interno). 


Per giunta, la tendenza attuale dell’industria è 
proprio quella di rendere sempre più «traspa¬ 
renti» le operazioni all’utente allo scopo di sem¬ 
plificare al massimo l’uso della macchina (e di 
ampliare al massimo il numero dei potenziali 
acquirenti). 

Ciò non toglie che la conoscenza, almeno in 
linea di massima, del «come» essa opera, oltre 
ad aiutare ad una scelta ragionata del tipo di 
macchina adatta alle nostre necessità, ci per¬ 
mette di sfruttare in maniera ottimale quella che 
già possediamo. 

Questa conoscenza di massima, con la speranza 
che torni utile, se non altro a stimolare ulteriori ap¬ 
profondimenti, è quello che tenteremo di dare in 
seguito. 
















































Entra nel mondo del LIST CLUB! 

• % • » 

*.Tif - » 
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Il Club del tuo Home computer! 


Caro amico, 

la diffusa e sentita esigenza di disporre di uno 
strumento in grado di favorire i contatti e lo scambio 
di esperienze tra le persone accomunate dalla me¬ 
desima passione per il mondo dell’informatica ed in 
particolare per gli home computers, è alla base del¬ 
le motivazioni che hanno consentito la nascita del List 
Club. 

Il List Club, inoltre, intende promuovere tra i cittadi¬ 
ni, in particolare i giovani, la diffusione e l'interesse 
peri computers, consapevole dell'importante ruolo 
che essi sono destinati ad assumere nella società 
moderna. 

Tuttavia, nell’intento di fare divulgazione scientifica 
e svolgere attività didattica senza annoiare, anzi fa¬ 
vorendo il momento di evasione, il gioco, e lo stare 
soprattutto insieme, il List Club ha in programma sim¬ 
patiche iniziative ed interessanti concorsi che verran¬ 
no illustrati nei prossimi numeri della rivista List. 
Ecco dunque dei validi motivi per convincerti a sot¬ 
toscrivere la tua adesione al List Club, ma se ciò non 


bastasse presta un attimo di attenzione alle interes¬ 
santi opportunità che vengono offerte a chi diventa 
socio del List Club: 

a) il ricevimento gratuito a casa propria dell'adesivo 
e del distintivo con il simbolo di List unitamente alla 
tessera d'iscrizione; 

b) la possibilità di acquistare ad un prezzo specialis¬ 
simo, riservato ai soci, le simpatiche magliette del List 
Club da sfoggiare Testate prossima nei luoghi di 
villeggiatura; 

c) la possibilità di partecipare agli interessanti con- 
• corsi che metteranno in palio computers, cassette, 

dischi ed altri prodotti concernenti il settore 
dell'informatica. 


Se hai un amico o un 'amica del cuore, perchè non 
iscriversi insieme al List Club, non ti sembra un 'idea ? 
Aderisci subito al List Club! 

List Club: il Club delle persone intelligenti e dei ra¬ 
gazzi in gamba! 

List Club: il Club degli uomini che guardano al futuro! 


NOME. 

COGNOME. 

VIA . 

C.A.P ... CITTÀ . PROV. 

ETÀ . PROFESSIONE . 

POSSEGGO UN HOME COMPUTER (tipo) ... 

«B* 

T* 

FIRMA .. 

Spedire in busta chiusa a: 

LIST - programmi per il tuo home computer 

Casella Postale 4092 
00182 ROMA APPIO 
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CAMPAGNA 

ABBONAMENTI 
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••• 

• •• 
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Desidero abbonarmi a «LIST • programmi per il tuo home computer» 

□ L. 30.000 (ITALIA) 

□ L. 60.000 (ESTERO) 


con la seguente formula di pagamento: 

□ ho effettuato versamento sul de postale n° 72609001 intestato a «LIST - programmi per il tuo 
home computer» 

□ allego assegno di eie intestato a «LIST - programmi per il tuo home computer» 

□ ho inviato vaglia postale intestato a «LIST - programmi per il tuo home computer» 

□ ho sottoscritto e pagato il presente abbonamento 

presso il negozio: . 



presso la libreria: 





















nel prossimo numero di 
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La nuova rulirtea «SCtKJLJE COM¬ 
PUTER» a cura di Duccio ««- 


im interessante PROGRAMMA DI 

___MIDC II 


vostro MPF N 


L’EDICOLA V ST: ‘"!,eno^Tec!«o- 

iìff a campo degli HOME COM- 

PUTERS 
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